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SUMMARY 


A fast computer code COSAL for transition prediction in 
three-dimensional boundary layers using compressible stability 
analysis is developed. The compressible stability eigenvalue 
problem is solved using a finite-difference method and the code 
is a black-box in the sense that no guess of the eigen-value 
is required from the user. Several optimization procedures are 
incorporated in COSAL to calculate integrated growth rates (N 
factor) for transition correlation, for swept and tapered laminar 
flow control wings, using the well known e N method. 


The optimization procedures incorporated in COSAL have been 
derived from SALLY code developed by Drs. Andrew Srokowski and 
Steven Orszag. COSAL was developed under NASA contracts NAS1-15604 
and NAS1-16572. 
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1. INTRODUCTION 


The stability properties of compressible laminar boundary 
layers are particularly relevant to the phenomenon of laminar- 
turbulent flow transition. Recently, interest in this problem 
has increased because of applications to Laminar Flow Control 
(LFC) technology. In such applications there is a need for fast 
computer codes to perform efficient design calculations. The 
computer code COSAL (Compressible Stability Analysis) has been 
developed for this purpose. It can perform optimized stability 
calculations for general parallel flows over swept wings. 

The linear stability analysis of three-dimensional compress- 
ible boundary layers involves solution of an eigenvalue problem 
for an eighth-order system of differential equations. In the 
case of two-dimensional boundary layers or in the absence of 
dissipation in three-dimensional flow, the eighth-order system 
reduces to the sixth order. 

The basic equations for the linear stability analysis of 
parallel-flow compressible boundary layers are derived using 
small disturbance theory. Infinitesimal disturbances of sinusoidal 
form are imposed on the steady boundary layer flow and substituted 
in the compressible Navier-Stokes equations. Assuming that the 
mean flow is locally parallel, a set of five ordinary differential 
equations is obtained. Of these, there are three second-order 
momentum equations, one second-order energy equation and one first 
order continuity equation. Most commonly, this system is reduced 
to a set of eight first order ordinary differential equations 
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making the system amenable to initial-value numerical integration 
procedures. Mack [1], for example, makes use of the initial value 
approach for the solution of the compressible stability eigenvalue 
problem. 

In the computer code COSAL, a finite-difference method, 
developed by Malik and OrSzag [2], is incorporated for the solu- 
tion of the compressible stability equations. The stability equa- 
tions are solved in their original form (3 second-order momentum 
equations, one second order energy and one first-order continuity 
equation) . The code includes two eigenvalue search procedures — 
global (which is used when no guess is available) and local (which 
is used when a good guess is available) . The local eigenvalue 
search procedure used in the code is significantly faster than 
the initial value approach employed by previous investigators. 

COSAL is specifically designed to compute the compressible 
linear stability characteristics, and integrate the amplifica- 
tion rates (N factor) of boundary layer disturbances on swept 
and tapered wings. In three-dimensional layered flow, such as 
that on a wing, the dispersion relation is given by the complex 
relation 

to = to (a, 6) ( 1 ) 

where the a, 6 and to are, in general, complex. Therefore, there 
are four arbitrary real parameters among a, 6, and to. There are 
several ways to remove this arbitrariness [3]. In our analysis 
we choose to use temporal stability theory in which a, 8 are real 
and (o is complex. It is thus assumed that the wavelike distur- 
bances have x and z (see Fig. 1) components of waves number a and 
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FIGURE I. SWEPT (SWEEP ANGLE 0 S ) COORDINATE SYSTEM; 

U^ T, AND \T REPRESENT THE POTENTIAL FLOW VELOCITY, 

THE WAVE NUMBER, AND THE GROUP VELOCITY 

VECTORS RESPECTIVELY. 
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g, respectively, and have a frequency u3 r =Re(oo) . It is further 
assumed that the disturbances grow or decay only in time. They 
grow if w^=Im(co) >o and decay if oo^<o. An N— factor for transition 
correlation may be defined as 

S T 


■ Im | M > ds 
| Re (Vg) I 


( 2 ) 


s 


C 


where Vg = 


f£,|f) is the (complex) group velocity and s 
is the arc length along an appropriate curve on the wing. Sub- 
scripts C and T indicate critical (linearly unstable) and on- 
set of transition, respectively. 

The N-factor (2) is not fully defined until a prescription 
is given for singling out a specific mode at each position on 
the wing and for defining a specific curve on which to integrate. 
We choose to integrate along the curve whose tangent is defined 
by the real part of the group velocity vector. 

Four different methods are provided in COSAL to prescribe the mode 
whose growth is integrated to calculate N-factor. These are 


1) Envelope method 

Specify the real frequency w r and maximize the growth rate ok 
with respect to the disturbance wave numbers a', g. •" 

2) Fixed wavelength and orientation method 

1 

Specify the disturbance wavelength A cC and the 

/ 2 , n 2. 

a + g 

orientation ip. 

3) Fixed wavelength and frequency method 

Specify the disturbance wave length A and the real frequency 



4) Fixed orientation and frequency method 

Specify the disturbance orientation ip and its frequency a> . 

The user has to choose any one of the above methods and 
COSAL will calculate the N factor. The good news for the user's 
of incompressible stability analysis code - SALLY [4] is that 
COSAL accepts almost the same inputs as SALLY. 
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2. COSAL USER'S GUIDE 

2.1 Program Cosal 

The computer code COSAL is specifically designed to compute 
the compressible linear stability characteristics and integrate 
the amplification rates of boundary layer disturbances on swept 
and tapered wings. 

The coordinate system used in COSAL is given in Fig. 2. The 
boundary layer profile data is input to COSAL on a constant radius, 
r=r Q > ( see Fig* 2). The integration of the disturbance amplifica- 
tion rate is performed on a trajectory defined by the real parts 
of the (complex) group velocity vector Vg (see Fig. 3) . Since the 
conical flow assumption (see Section 3.1) is used in calculating 
the boundary layer profiles, the desired boundary layer data at 
radii other than r Q are calculated inside COSAL using conical flow 
similarity transformations. 

The COSAL code employs two different procedures for the 
solution of the compressible stability eigenvalue problem— a 
global method which is used when no guess of the eigenvalue is 
available (e.g., when solution is started) and a local method 
which is used when a good guess of the eigenvalue is available. 

A second-order accurate finite-difference representation — 
of the compressible stability equations is employed which results 
in a block- tridiagonal system of equations. A generalized matrix 
eigenvalue problem is then set up and solved using the complex 
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FIGURE 2. COORDINATE CONVENTIONS USED BY PROGRAM 


COSAL. 
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FIGURE 3. SCHEMATIC OF INTEGRATION PATH USED 
FOR CALCULATING N FACTORS. 
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LR algorithm [5] for global eigenvalue search. The local search 
is performed by inverting the block-tridiagonal system using 
block LU factorization together with the inverse Rayleigh iteration 
[5] procedure in which the eigenvalue, eigenfunction and its adjoint 
are obtained simultaneously. The group velocities are obtained at 
little extra cost to the local eigenvalue search. The accuracy of 
the local eigenvalue and group velocity is enhanced using Richard- 
son's extrapolations. The resulting values are fourth order accurate. 
More detail of the numerical scheme is given in [2]. 

2 . 2 Computer Resources 

The storage requirements of COSAL are largely governed by the 
desired accuracy in the global eigenvalue solution. When the glo- 
bal eigenvalue problem is solved using the LR algorithm, the stor- 

2 

age requirements are of 0(K ) while the computational work involved 
3 

is of 0 (K ) where K=5& (L being the number of subdivisions of the 
computational domain) for the eighth order system of equations and 
K=4L for the sixth order system. Comparatively, the solution of 
the local eigenvalue problem using the present method requires only 
0 (K) storage and 0(K) work. It is important therefore to use the 
global method only when necessary. The COSAL code is designed in 
such a way that it solves the global problem only when no guess is 
available during integration of the disturbance amplification rates. 

In the present version of the code K=100 for the global problem 
which allows L=20 for the eighth order system and l= 25 for the 
sixth order system. The storage requirements for the COSAL code 
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are 170, 000 octal words on CYBER 175. Since the global method 
is used only to provide a guess of the eigenvalue, the loss 
of accuracy using l= 20 is not considered a deficiency of 
the code. If, however, the increased accuracy in the global 
solution is needed the code could be modified by changing 
two Fortran statements in the main program (see below) . A 
maximum of K=160 can be used which would allow l= 32 for the 
eighth order system and l= 40 for the sixth order system. The 
storage requirements for K=160 case would be about 270,000 
octal words. 

The following changes would be required in COSAL if K=160 
is to be used: 

The dimension statement in the present version 

COMPLEX AC (100,100) , EIGA(IQQ) 

should be changed to 


COMPLEX AC (160 ,160) , j EIGA(160) 


And the data statement 


NDIM/100/. 

* 


should be changed to 

&DIM/160/ 



Mack [6] reported that for transonic flows the difference 
between the results of the sixth-order system and those of the 
eighth order system is small. This was also confirmed by the 
calculations performed using COSAL. It therefore is desirable 
to use the sixth-order system for the global eigenvalue problem 
which is solved only to provide a guess. Some computer timings 
for the global method on a CYBER 175 computer are given in 
Table 1. All timings were obtained using the internal clock 
and are averaged over three different test cases for a swept 
wing. 

The maximum number of subdivisions allowed for the local 
eigenvalue solution is 100 (the storage requirement remains 
170,000 octal) in the present version of the code. The accuracy 
of the local eigenvalue and the group velocity is increased by 
use of Richardson's extrapolations. The maximum number of sub- 
divisions in these extrapolations should not increase L=100. 

Some data on the speed of local eigenvalue solution are given 
in Table 2. 

The overall time required by COSAL code depends obviously 
upon the desired option and the number of stations to be used 
in search of instabilities. The execution time for test case- <• 
No. 4 (see Section 2.4 below) was about 180 seconds. 
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Table 1 Timings for the global eigenvalue method 

(time given in seconds on a CYBER 175 computer). 


L 

8th order system 

6th order system 

15 

3.15 

2.05 

20 

7.12 

5.17 

25 

13.47 

8.65 


Table 2 Timings for the local eigenvalue method 


L 

8th order system 

6th order system 

20 

0.61 

0.40 

40 

1.14 

0.77 

80 

2.22 

1.52 
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2 . 3 Input/Output 


The program card (for CDC machines) reads: 

PROGRAM COS AL (INPUT, OUTPUT, TAPE5=INPUT, TAPE6=0UTPUT , 

TAPE 7) 

TAPE 5 and TAPE 6 are input and output units respectively, 
while TAPE7 contains the boundary layer profile data generated 
elsewhere for stability analysis. 

The control cards needed to run COSAL are 


(USER INFORMATIONS) 

• 

GET, COSAL. 

FTN , I=COSAL , 0PT=2. 
GET , TAPE 7=BLDATA. 
LDSET , PRESETA=NGINF . 
LGO. 

EXIT. 

7/8/9 End of record 
$ CARD IN 
Input data 
$END 

6/7/8/9 End of file 
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COSAL reads user supplied input through Namelist $CARDIN. 
All other inputs are read from file TAPE 7 , generated by the 
boundary layer program WING. Except for a few additional 
parameters, the inputs to COSAL are the same as for SALLY. 

The default values for these additional parameters (which will 
be appropriate in most cases) will allow COSAL to be used with 
exactly the same inputs as for SALLY. Variables appearing in 
$ CARD IN are described below. 


ALPHA 

ALPX 

BETA 


BETX 

IAB 

IAB = 0 
IAB = 1 


Non dimensional wave number component 

Series of ALPHA values is input into this array 

(specify with IAB = 1) 

Non dimensional wave number component. (Note: 
ALPHA and BETA need only be input if IBEGIN = 1 
and ITRIV = 1 are selected or if IAB = 0 and 
ITRIV = 0 are selected.) 

Series of BETA values is input into this array 
(Specify with IAB = 1) 

Flag which specifies which of several options 
for a simple eigenvalue computation at a single 
station will be selected (default = 0) 

Input ALPHA and BETA will be used for simple 
eigenvalue computation 

String of input ALPHA, BETA pairs will be used 
for string of simple eigenvalue computations. 
Limit of 10 (Input through ALPX, BETX arrays) 
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IAB = 2 


IBEGIN 
IBEGIN = 


IBEGIN = 
IBLIND 

IBLIND = 


IBLIND = 


One input wavelength -to chord ( XLENC ) value will be 
used with input values of PSI for a string of simple 
eigenvalue computations (limit of 10 PSI values) . 

ALPHA and BETA will then be computed by the program. 
ITRIV = 0 needs to be input for any of the IAB options 
to be executed. (NPSI also needs to be input) 

Flag which determines whether input ALPHA and BETA 
will be used to make a wavenumber for initial in- 
stability search, for ITRIV = 1 option. (default = 0) 

1 Input ALPHA and BETA will be used to make wave number. 
Program will proceed from station NSTART to search 
for unstable mode for wavenumber obtained from in- 
put ALPHA and BETA. (Specified only with ITRIV = 1) 
IBLIND must be set to zero if IBEGIN is set to one. 

0 Disables the option. 

Flag which determines starting mode for ITRIV = 1. 
(default = 1) 

0 At station NSTART, an ALPHA BETA combination that 
yields a good unstable mode is known. This ALPHA 
and BETA combination must be input. 

If IBEGIN is set to one, and IBLIND is set to zero, 
program will execute as described under IBEGIN = 1. 

1 ALPHA and BETA for unstable mode is not known. User 
should input range of XLENC and specify value of 
PSI (input or default) . Program will search for 
unstable modes automatically within the specified 
PSI-XLENC matrix. If IBLIND = 1 is selected, IBEGIN 
must be set to zero. 


15 



ICHEB 


ICHEB = 


ICHEB = 


ICHEB = 


ICON 


ICON = 0 


ICON = 1 


ICON = 2 


IPRl 


IPR2 


Flag which specifies how number of node points is to 
be determined for finite-difference solution. (de- 
fault = 2) 

NCHEB node points will be used and increased to 
satisfy accuracy tests 

Default number of node points will be used and 
increased to satisfy accuracy tests 
NCHEB points will be used for all stations and 
not changed. 

Flag which determines the number of stable regions 
through which computation will be allowed. (de- 
fault = 1) 

Program will terminate computation upon encounter- 
ing first stable region 

Program will continue through first stable region 
and will pick up computing a second unstable zone, 
if one exists. Program will terminate upon encounter- 
ing second' stable region. N factor will be reset to 
zero upon encountering second unstable zone 
Program will compute through all stable-unstable 
regions 

Flag which controls the print of mean flow profiles 
as provided through TAPE 7. (default = 0) Note: 

Print flags set to 1 enable printing. Print flags 
set to 0 disable printing. 

Flag which controls print of eigenvalue spectrum from 
the global eigenvalue calculation, (default = 0) 



IPR3 


IPR4 


IPR5 


IRP7 


IPRZ 


IPRZ = 0 
IPSI 


IPSI = 0 


Flag which controls print of local eigenvalue 
search iterations. (default = 0) 

Flag which controls print of eigenfunction 
(default = 0) 

Flag which controls print of boundary layer pro- 
files which have been interpolated to the grid 
desired for computations. (default = 0) 

Flag which controls print of intermediate iteration 
results. Useful for diagnosing program malfunctions, 
but produces more information than is needed when 
running routine production jobs. (default = 0) 

Flag which determines if the accuracy of local 
eigenvalue and group velocity will be increased 
using Richardson's extrapolation. Non-zero IPRZ 
will triger extrapolation using NCHEB, (NCHEB + 

IPRZ), and (NCHEB + 2 * IPRZ) points. ((NCHEB + 

2 * IPRZ) . LE. 101) . (DEFAULT IPRZ = 10)) 
Richardson's extrapolation not used. 

Flag which determines whether default crossflow 
or streamwise angles , or the user input angles 
will be used for unstable mode search. (default =~ 

0) 

Default streamwise or critical crossflow angles 
will be used for unstable mode search. 



IPSI = 1 


ITRIV 


ITRIV = 


ITRIV = 


ITRIV = 


ITRIV = 


User input angle PSI will be used as wave angle 
for unstable mode search. 

Flag which specifies which of the major computing 
options is to be selected (default = 5) 

Simple eigenvalue computation at one station. 
(NSTAT = 0; NWANT must be given) IAB parameter 
must be set to execute desired option. 

Program will follow and integrate N factors for 
a disturbance of fixed frequency. Search pro- 
cedure to maximize amplification will be imple- 
mented. IBLIND must also be set to 0 or 1. 

(See instructions for IBLIND) 

Program will follow and integrate N factors for 
a disturbance of fixed wavelength and orientation 
(Relative to local free stream direction) . Fre- 
quency of the disturbance changes. 

Amplification rates are not maximized. 

Only one value of PSI and XLENC may be input. 

NPSI and NXLEN must be set to 1. 

If IPSI = 0, default critical crossflow angle 
obtained at station NSTART will be followed all 
the way through. 

Program will follow and integrate N factors for 
a disturbance of fixed wavelength and frequency. 
Orientation of the disturbance changes. Amplifi- 


cation rates are not maximized. 



ITRIV = 
ITYP 

ITYP = 0 
ITYP = 1 
M 

M = 5 
M = 4 
MG 

MG = 5 

MG = 4 r ' 

NAB 

NCHEB 


Program will follow and integrate N factors for 
a disturbance of fixed orientation and frequency. 
Disturbance wavelength changes. 

Flag which specifies whether computation is to 
be for crossflow or 2-D Tollmein-Schlichting 
type disturbances. (default = 0) 

Crossflow Computation. 

T-S computation. 

Value of M determines the order of stability 
equations to be used in local eigenvalue search, 
(default = 5) 

The full 8th order stability equations will be 
solved. 

The reduced 6th order stability equations will 
be solved. 

Value of MG determines the order of stability 
equations to be used in global eigenvalue search, 
(default = 4) 

The full 8th order stability equations will be 
solved. 

‘ The reduced 6th order stability equations will 
be solved. 

Number of ALPX - BETX pairs (Limit of 10) 

Number of node points to be used in local eigen- 
value computation. (default = 21) . For maximum 
allowable limit, see IPRZ. 
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NG 


NINTEG 


NINTEG = 0 


I 

NINTEG = I 


NINTEG = 2 


Number of node points used in global eigenvalue 
search, ( (NG-1) *MG) .LE.NDIM) , (DEFAULT NG = 21). 

Note: As noted in section 2.2, the present ver- 

sion allows NDIM = 100. NDIM can be increased up 
to 160 as described in Section 2.2. 

Flag which controls integration of the amplification 
rate (default = 2) 

No integration of amplification rate. Calcula- 
tions will be performed along an arc of constant 
radius. 

Amplification rates will be integrated. 

Assumes zero amplitude at leading edge. 

Amplification rates will be integrated. If NR=0 
then starting disturbance amplitude will be taken 
as one at station number = NZERO. (N-factor = 0) 

IF NR=1, this denotes a restart run which means 
that the N-factor, Reynolds number, displacement 
thickness , radius , ALPHA and BETA at the starting 
location must be input from the previous run. 

If NR=2 this is the same as (NR=0) except that 
NZERO is set internally to be the station immediately 
before the first one for which good unstable modes 
are found. 

Number of values being input into PSI array. (de- 
fault = 1, maximum is 10) 


NPSI 



NR 

NR = 0 
NR = 1 

NR = 2 
NSTART 

NSTAT 

NS TAT = 0 

NSTAT = 1 

NSTOP 

NWANT 

NXLEN 


NZERO 
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Flag used in conjunction with NINTEG; NR specifies 
whether or not a restart is being attempted. (see 
additional instructions under NINTEG) ; (default = 2) . 
Not a restart. 

This is a restart run. 

Note: NR=1 restart option can only be used for 

ITRIV=1 with NINTEG=2. 

Not a restart. 

Station number at which to begin computation for 
multiple station computation. 

Flag which specifies whether only one station 
is to be computed (default = 1) 

Only one station desired. (NWANT must be input) 

Set for ITRIV .EQ. 0 

More than one station desired. 

NSTART and NSTOP must be input. Set for ITRIV .NE. 0 
Station number at which to end computation. 

Station number when only one station is to be 
computed. (default = 0) 

Number of input values of XLENC 
(ITRIV = 0;4: Limited to 1) 

(ITRIV = 5; Limited to 1), (ITRIV = 1;6: Limited to 5) 
(default =1) 

Station number at which initial disturbance ampli- 
tude is to be taken as 1, and the N FACTOR = 0. 
(default = 2) . NZERO needs to be specified only 
if NR = 0. See more information under NINTEG. 
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PSI Angle of the normal to the disturbance wave front 

measured positive counterclockwise from local free 
stream direction. (PSI array is zeroed out in data 
statement. PSI is input in degrees) . 

NPSI values may be input. For ITRIV = 0;5 
NPSI is limited to 10. For ITRIV=1 or 4 or 6, 

NPSI is limited to 1. 

RFREQ Physical frequency of disturbance which COSAL 

is to follow. (hertz) (default = 0.5 HZ) 

XLENC Ratio of disturbance wavelength to wing chord, 

(default = .0005) 

YEDGE Edge of the boundary layer for stability cal- 

* * 

culations , y /6 . A relatively large ETAE is 
needed since disturbances are assumed to vanish 
at the outer boundary in global eigenvalue search. 
(In local calculations, however, asymptotic 
boundary conditions are imposed at the outer 
boundary and a smaller value can be used) . The 
default value will be adequate in most situations 
(default = 100.0) 

The following parameters are required when a restart is _ 
attempted (with ITRIV = 1) using the NR = 1 option. Values of 
parameters are taken from a solution station where a good un- 
stable mode has previously been found. NSTART has to be set 
to the station number from which restart parameters have been 
taken. 
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DSTZIN 


Restart displacement thickness 
RADIN Restart radius 

REYIN Restart Reynolds number 

XNIN Restart N FACTOR 

Additionally, ALPHA and BETA values corresponding to the last 

good solution must be input. IBEGIN and IBLIND must be set 
to zero. 


Description of Output 

The output of COSAL is, in general, self-explanatory. 

Some of the FORTRAN variable names are described here. 

* 


DSTZ 

ALPHA 


BETA 

OMEGA 


6 , displacement thickness used as a length scale 
a, non-dimensional wave number in the x-direction 
(Fig . 2 ) • The wave number is non-dimensionalized 
with the displacement thickness of the velocity 
profile in x-direction. 

8, non-dimens ionai wave number in the Z -direction. 

w, non-dimensional complex frequency. 

* 

2 TT 6 * * 

oo = — jj— oo where oo is dimensional frequency 

e * 

in Hertz and 6 and U e are the displacement 
thickness and edge value of the x-component of 
velocity. 

, non-dimensional (complex) group velocity 
component in x-direction. 


VA 



VB 

PHI 


PSI 


XLENC 
FREQ 
RFREQ 
N FACTOR 

ARG 


REY 


j~, group velocity component in Z - direction. 

dp 

<t> , angle of the local potential flow velocity 

-1 W e 

vector with the x-axis. (<J> = tan — ) 

e 

ip , wave angle with respect to the local potential 

g 

flow velocity vector. ( ip = tan — - <f> ) 
ip is taken positive in the counterclockwise 
direction. 

X/c , ratio of the wavelength to the airfoil chord. 

Real (o>) , non-dimensional disturbance frequency. 

* 

Real (w ) , physical disturbance frequency (HZ) . 

Logarithmic exponent of disturbance amplitude 

ratio (N = log A/A ) 

^e o 

Indicator of local growth rate. Specifically, 

ARG is the rate of change of N FACTOR with surface 
distance. 

R, displacement thickness Reynolds number. 

U <S* 

R = e — , where v is the kinematic viscosity 
v e 

e 

in the free stream. 

U 

M , edge Mach number. M = — — , where y and 

e e /yAT g 

A are the ratio of specific heats and the universal 

gas constant respectively and T g is the free stream 

temperature . 


MACH NO 



2 . 4 Sample Test Cases 

Sample inputs for some test cases are given below. These 
test cases are designed to bring to the user's attention the 
options available in COSAL. 

Case No. 1 

It is desired to obtain a simple eigenvalue computation 
for given wavenumber components ALPHA and BETA at station No. 10. 
Full eigenvalue spectrum from global calculation will be printed. 
The eigenfunction corresponding to the most unstable mode will 
also be printed. Inputs are: 

NWANT =10 

NSTAT = 0 

ITRIV = 0 

ALPHA = il8 

BETA = -.37 

IAB = 0 

IPR2 =1 

IPR4 = 1 

In this example, the program is allowed to use the default 
number of node points (NG=NCHEB=2 1 ) . The global calculation iB 
made using the reduced sixth order system (MG=4) of equations. 

The negative of the (complex) global eigenvalue spectrum (a total 
of MG*(NG-2) + 1 values) is printed. The real and imaginary parts 
of an eigenvalue represents respectively the disturbance frequency 
and its temporal growth rate. In the printout of the full eigen- 
value spectrum, a mode with a negative imaginary part is unstable. 
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The most unstable eigenvalue is selected from the spectrum and 
multiplied by (-1) . The local eigenvalue search procedure is 
then used to increase the accuracy of this mode and obtain the 
corresponding eigenfunction and group velocities. The final 
OMEGA which is printed is the result of Richardson's extrapola- 
tion using 21, 31 and 41 node points. The group velocities VA 
and VB are also the extrapolated values. The printed eigen- 
function is, however, that obtained using 41 points. Five 
components of eigenfunction printed are: 

U - X component of the velocity perturbation 
V - Y component of the velocity perturbation 
P - pressure perturbation 
T - temperature perturbation 
W - Z component of the velocity perturbation 
The eigenfunction can be printed only when the full eighth 
order system (M=5) is solved for local eigenvalue search. 

Case No. 2 

It is desired to obtain a simple eigenvalue computation 
for two sets of ALPHA-BETA pairs at station No. 10. It is also 
desired that the global solution be obtained for the eighth 
order system of equations using the default number of node 
points. The local solution will be obtained for the default 
value of NCHEB=21. However, the extrapolation parameter IPRZ 
is set to 20; so the final eigenvalue will be obtained by 



Richardson's extrapolation using 21, 41 and 61 node points. 

For this case, the inputs are: 

NWANT =10 

NSTAT = 0 

ITRIV = 0 

ALPX = .18, .2 

BETX = -.37, -.35 

NAB = 2 

IAB = 1 

MG =5 

IPRZ =20 

IPR2 = 1 

This example illustrates use of the IAB = 1 option. The 
IAB = 1 option permits the user to do a series of calculations 
of the type seen in Case No. 1. The pairs of ALPHA - BETA 
values for which computations are to be made are read in 
through the ALPX, BETX arrays. In this example two pairs of 
ALPHA- BETA values are used. The user can specify up to NAB = 

10 values. The IAB = 1 option is particularly useful when the 
user wishes to construct a stability chart of a particular pro- 
file. Referring now to the printout, we see that the first 
pair of wavenumbers (ALPHA-BETA) is the same as for Case No. 1. 
In this case, however, MG = 5 is selected; so the global cal- 
culations are made using the eighth order system of equations. 
As the user can see, the calculated unstable eigenvalue is 
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slightly different from that calculated by the global method 
in the previous case where the default value of MG = 4 was 
used. 

In the present case the local eigenvalue is obtained with 
increased number of points. 

Case No. 3 

Case No. 2 illustrated an option ( IAB = 1) for obtaining 
stability results for a fixed location on the wing, when the 
user wishes to input wave number pairs. This is not always 
convenient. For example, a calculation might be needed where 
the user has a fixed wavelength disturbance, and wants to see 
what happens to the stability as the orientation angle changes. 
Using the IAB = 1 option requires the user to convert the physi 
cal wavelength and orientation angle to the wavenumbers (ALPHA 
BETA) . This is done automatically when the IAB = 2 option is 
selected. In the present example we use 3 orientation angles. 
However, up to 10 orientation angles can be specified. The 
global solution will be obtained using only 11 points. On the 
other hand, local solution will be obtained using 101 points 
and no Richardson's extrapolations will be performed. The in- 
puts are : 

NWANT =10 

NSTAT = 0 

ITRIV = 0 

IAB = 2 

PSI = 85. , 87. , 89. 

XLENC = .00065 



NPSI 


3 


NG =11 

NCHEB =101 
IPRZ = 0 

IPR2 = 1 

This run demonstrates that since only a crude guess is 
required for the local eigenvalue search, the global solution 
can be performed with a small number of points. 

Among other things, the present and the preceding two 
runs have shown how the number of node points can be changed 
or how the selection of the order of the stability equations 
is made. In the following runs only the default values of 
the control parameters M, NCHEB, MG and NG will be used. 

Case No. 4 

This test case computes N FACTOR for cross flow disturbances 
of frequency = 100 HZ and wavelength to chord ratio of 0.001. 
Calculations are started at station NSTART = 2. However, if 
it is felt that the disturbances of the given frequency and 
wavelength would become unstable further downstream, a larger 
value of NSTART can be chosen. - 

Two startup options are available. First option is that 
the program use an internally computed critical cross flow angle 
together with user input wavelength to chord ratio to search for 
the initial instability. Second option is for the user to 



specify a discrete set of angles that should be used instead 
of the critical angle. This case illustrates use of the second 


option. 

The inputs are 

ITRIV 

= 5 

ITYP 

= 0 

NSTART 

= 2 

NSTOP 

= 20 

RFREQ 

= ioo. 

IPSI 

= 1 

XLENC 

= .001 

NPSI 

= 4 

PSI 

•t 

• 

CM 

00 

• 

o 

00 

II 


At NSTART = 2, each user supplied angle is checked for 
instability in that direction, with none being found for any 
of the angles. The search procedure continues until an un- 
stable mode is finally detected at station No. 5 at an angle 
of 80 degrees. COSAL then iterates to the desired frequency 
of 100 HZ. Note also that foi XLENC = .001, the angle corre- 
sponding to 100 HZ is PSI = 82.55 so that the orientation angle 
has been changed almost 2.5° in iterating on the input frequency. 

The user is referred to Section 2.3 for complete printout - 
definition. 


30 



Case No. 5 


This run is the same as Case No. 4 except that it illus- 
trates startup procedure using internally computed critical 
angle as the search orientation angle. The inputs are: 

ITRIV = 5 

ITYP = 0 

NS TART = 2 

NSTOP = 20 

RFREQ = 100. 

IPSI = o 

XLENC = .001 

Except for starting procedure, the results for case No. 5 
should be the same as those of Case No. 4 starting at station 
No. 5. 

Case No. 6 

The purpose of this run is to compute crossflow disturbances 
of 0.5 HZ with amplification maximization at each station 
(Envelope method) . The user does not specify an orientation 

or wavelength (except for startup) to be followed along the 
wing. The program at each station along the wing picks that 
combination of orientation angle and wavelength that maximizes 
the amplification rate (imaginary part of OMEGA). The user does, 
however, have to specify orientation, and/or wavelength informa- 
tion for initial program startup. The inputs for this run are: 



ITRIV 


1 


ITYP 

= 0 

NSTART 

= 2 

NSTOP 

= 42 

RFREQ 

= 0.5 

XLENC 

= .0003 

IPSI 

= 0 


ITRIV = 1 computation is more prone to jump the track, so 
as a result, default printout for this option is more extensive 
than for other ITRIV options. 

Case No. 7 

The purpose of this run is to compute the amplification 
of two-dimensional, Tollmien— Schlichting type disturbances with 
frequency = 5000 HZ at PSI = 0 degrees. The inputs are: 

ITRIV = 6 

ITYP = 1 

NSTART = 15 

NSTOP =42 

RFREQ = 5000. 

XLENC = .002 

IPSI =o 

ICON = 0 

Notice that ICON = 0 was selected, and the program will 

terminate upon encountering a stable region. Note also that 
only one value of XLENC is input as a guess, although a number 
of values could have been input. 



It should be emphasized here, that when comparing N FACTORS 
for different frequencies, the user should be careful that the 
program is picking up the instability as soon as it physically 
occurs. It is possible for example, for XLENC values input by 
the user to be off the mark far enough so that COSAL fails to 
pick up the instability until further downstream, resulting in 
an N FACTOR that is artificially low. This applies to both 
ITRIV = 6 and ITRIV = 1. 

Case No. 8 

This run computes the amplification of two-dimensional 
type disturbances using the envelope method for frequency = 


5000 

HZ . The 

inputs are: 


ITRIV 

= 1 


ITYP 

= 1 


NSTART 

= 15 


NSTOP 

= 42 


RFREQ 

= 5000. 


XLENC 

= .002 


IPSI 

= 0 


ICON 

= 0 

Case 

No. 9 



This illustrates the restart option available with the 
ITRIV = 1 envelope method. Case No. 6 which computed amplifi- 
cation of cross-flow disturbances is restarted at station No. 23. 



The restart option should be initiated at a station at which 
good convergence was achieved on an unstable mode. 


The inputs for this run are: 


ITRIV 

ITYP 

NSTART 

NSTOP 

RFREQ 

IBLIND 

IPSI 

ICON 

NR 

ALPHA 

BETA 

REYIN 

RAD IN 

DSTZIN 

XNIN 


= 1 
= 0 
= 23 
= 42 
= 0.5 


= 0 
= 0 
= 0 
= 1 

= -.3722 
= .7047 

= .4374175 E + 04 
= .3755056 E + 05 
= .2623616 E - 02 
= .255 


2 . 5 Computer Output of Some Selected Test Cases 

This section contains the computer output of some 
selected test cases _ In particular, the output is given 
for test case No. 1, 2, 3, 4 and 6. Because of space limita- 
tions, the output of the remaining test cases is not given. 
The variables which were actually input have been marked. 
Default values for the remaining variables were assumed in 
the calculations. 
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.90266-01 

• 6939 E -02 
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.52436-01 
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• 6620 E-02 
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.34916-02 
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.21046-02 

. 5 8036-02 
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KEOATTVC nr GlC'PAt 81 f- 8 S VALUE S°6CTPUM POINTED 
ALPMA* « 1 RCCO 3 FT A* -.37000 


1 

- 21 .810631X1 

.9176379430 

2 

21.9010096? 

.917629474* 

3 

— 17 #9. 2 *90969 

.6095873*33 

* 

17. 0090201 

.6095942950 

c 

1 *. 009*6014 

.420*739676 

6 

-14.0:029574 

.*204612995 

7 

12.3752*677 

.293141 0980 

8 

—12.3 :j 0 5 92 * 2 

.2931320336 

9 

10.3353P314 

.20*3*27256 

10 

-10.35906290 

.20*3*26760 

11 

0 • 5 c •:> 5 . 6 * 4 9 5 

.1*15523967 

12 

-0 .62T2P7C70 

.1*1567**73 

13 

7, 111.70 3597 

.970*23*0718-01 

1* 

-7.1375*^375 

.97075613058-01 

1 5 

-5.8* :, ?3 °2?4 

.6569079O55F-O1 

16 

6.83 39 226 07 

■.656*70009] F-01 

17 

-* .7*6 Q 11C64 

.43*0?O7101F-0l 

1 8 

*.73 c ’ 11 0(81 

•*3 7 35105G3F-01 

19 

-3. 80 05669?6 

.2874581372?, -01 

20 

3.8C2*( *006 

. 286700692 0F-O1 

21 

-2 .991:202424 

.1P579377C0E-01 

22 

3 .0005*^9940 

.18506176908-01 

23 

2. 34026*260 

.11794387796-01 

2 * 

-2.318231*02 

.11057160558-01 

25 

1 .703*95603 

.7474043434 6-C2 

26 

-1 .76 ■- 6 5 9 0 8 0 

.7522*077776-02 

27 

3.32'-l*32?R 

.*8020807006-02 

? 8 

- .*80 34? 26 q 8 c -02 

1.3541*6359 


-1.29:15^539 

.*0301052518-02 

30 

— . Q 2? { ' 1(6693 

.332*5135766-02 

31 

.96* *' 053207 

. 3290C66060E-0? 

3? 

50 1 0 8—02 

. 972 *3 «61** 

33 

-♦* o 2.;!*06r38c-. o? 

.97323*1 071 

3* 

-.8,1 8.;: 5 *77 7 2 6-02 

.870*032871 

35 

-.(■50 100 0*3 2 

. ?«Q9C52179r-02 

36 

. 6 °5 !- 27*900 

.25700379606-02 

37 

.52? 7260688 

. 2*317*63838-0 2 

38 

- .4 84 i> 12 nc 2 7 

.26**9132086-02 

39 

-.014^ 010768-02 

.*>2*9] 2326* 

*0 

-.021 :; 93 0 8008-02 

•626Q°15C75 


2 


49 -.U50827031E-01 .2853794564 

50 -.11716981208-01 .2868946459 

51 -.1217755035!: -01 .271*393461 

52 .180533*060 .25719346138-03 

53 -*1191194134 .2571912706E-03 

54 -.11905141858-01 .1942713245 

55 —.12132760] 7 8-01 .1957368241 

56 -.1168342344F-01 .1839540505 

57 -.1108153141E-01 .1313311009 

58 — .115 88689 90 E -01 .132665427 2 

59 -.10131855778-01 .1231511901 

60 -.92207019528-02 .87545129138-01 

61 -.1001 137209 E -01 . 8 8 69 83691 3 8-Q1 

62 -.75102506638-02 . 8076 6 5 23 65 F-01 

63 -.7 *4 2 93 230 7f -02 . 57 81 4 4 770 3 6.-01 

64 -.617801790^8-02 .56912750278-01 

65 -.40391490078-02 .50959150818-01 

66 -.42104633998-02 .35711186418-01 

67 -. 2316977B728-02 . 3 5 1 8 1 608 59 E -0 1 

68 -.10468420288-01 . 6 591 604 6 53 E-0 2 

69 -.95750227458-02 .85648217068-02 

70 .5098627381F-02 -.44003883486-02 

71 -.340*6274378-03 . 2 93C5 0290 8 E-01 

72 -.52*33 85 9Q6 F -03 .23011081586-01 

73 -.18628473456-02 .19180087716-01 

7* ,*10C0783*6F-02 .17967375918-01 

75 . 5 62*88 569 3?-02 . 1 * 77 6 1 * 3 92 F -01 

76 .7*15485246 F— 0 ? .1660918 5018-01 

77 .1602546411^-01 .11268810996-01 

78 .17361045776-01 .12915391978-01 

79 .18090206436-01 .96510693966-02 

80 .2 5210173118-01 .61703088768-02 

01 .25950085506-01 .76610530766-02 

82 .26*20659426-01 .57000902946-02 

93 .29490530966-01 . 3 8 75 746 2 9 7 6-0 2 

94 .29537694666-01 . 30 27 1 6 9 1 95 E -02 

89 .29742440278-01 . 2 94 2 773999E -02 

86 .30451795056-01 .16271694148-02 

87 .30505325826-01 .11976026*36-02 

88 .305157063*8-01 .120978856*6-02 
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*1 -.1038171BT2E-01 .5P*6*85217 89 

*2 .*7010233*2 .1332*899206-0 2 90 

*3 -.*17231*098 .75337592026-03 91 

** .3903758378 .32685201*36-03 92 

*5 -.3290073*91 .325290390*6-03 93 

*6 -.10?P3:r*7?E-01 .*1951600*8 9* 

*7 — .10*10730306-01 .*209*47635 95 

*8 -.1 171**11958 _ci .3 9® 1055029 96 

SIMPLE EIGENVALUE COMPUTATION ^ STATION NUMBER 10 
«EY • 651.7617 *ACH Nr. « .923 

ALPHA. .18CC00CC P FT A * -.37000000 0 M EG A 

CROUP VE IOC T TY COM^UTCO 

VA • .6810761 10001 7E>00 -.219691390*1**6-01 VB 


NFGATTVF 

n F CtnRAl FTOFNVALUE 5 d EC T p UM PPTNTFO FO&t 


ALPHA* • 20CC0 

PETA* -.35000 


1 

-21.8135° 22 3 

.917633116* 

*9 

2 

21.798003*7 

.9176183678 

50 

3 

-17.83037916 

.600575297* 

51 

* 

17.P035729O 

.6095803610 

52 

5 

1*.P0211292 

.*2 0*71*32* 

53 

6 

-1 * • P 3 7°3 3° 3 

♦*204**0363 

5* 

7 

1 2.36528906 

.2931414*57 

55 

8 

— 12. *0 03 P **7 

.29311125*8 

56 

9 

10.3231*5 2? 

.20*3*31579 

57 

10 

-1O.371P1201 

.20*3198239 

58 

11 

0.5P5C737O5 

.1*1552615* 

59 

12 

— P.62 73P61 11 

.1*15*37585 

60 

13 

7.0°502?9*0 

.970*1317076—01 

61 

1* 

-7.1*077*855 

.97052127666-01 

62 

15 

-5.P6 7 629066 

•65676303Q9E-01 

63 

16 

5. 01 *°2091 7 

.656*3773906-01 

6* 

17 

-*.766077951 

.*370103557^01 

65 

10 

* .716 929200 

.*3720762*26-01 

66 

19 

-3. 02262*903 

* .?07?61P*176-O1 

67 

20 

?.770?)C ?? i 

.2866068*656-01 

68 

21 

-3. 0ic8^9f P5 

.135603800*6-01 

69 

22 

? • 90 3*4 **<* 8 

.18*91770716-01 

70 



3 


.30663039526-01 .726*2126836-03 
.30675 10218 E-01 .52963032696-03 
.3067778*736-01 .*7195393756-03 
.307029 3307 6-01 .315357*6876-03 
.3070 6 53780 6-01 .26523835766-03 
.30705*77936-01 . 27692*02 *3 E-03 
.30701389596-01 .*3688*12026-03 
.30706*53356-01 .36632838526-03 

X/C - .021169 21 NODE POINTS USED 


-.*9117153389586-02 .**176095233336-02 


.35908*01 27B75E+00 -.166597*0357106-01 


— .2 17*22190* F— 01 
-.218*9*06596-01 
-.2**06171006-01 
.1*7196950* 
-.1*65619133 
-.2*265 53* Q 8E-01 
-.2**30616605-01 
-.2607020*286-01 
-.260315 90 69E-01 
-.25 7 3071598E-O1 
-.266**630296-01 
-.26058937796-01 
-.26552353*16-01 
-.26027P713*E-01 
-.259066*0166-01 
-.250852 53536-01 
-.2*283956766-01 
-.2*201930526-01 
-.227916932*6-01 
-.213*P311*9E-01 
-.28O172OH82E-01 
-.277*2629866-01 


.28525*3062 

.286719386* 

.2712977943 

.2*757318726-03 

.2*7579653*6-03 

.19*1260862 

.1955352255 

.1^38**5905 

.13251*2050 

. 1312*23167 

.1232071268 

.87670612036-01 

.R8778C7520E-01 

.812*7978*16-01 

.58*557090*6-01 

.57*61353306-01 

.5225680537E-O1 

.37352185016-01 

.363*7992356-01 

.32030232026-01 

.*5109**1956-02 

.57802681276-02 
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23 

2.313*47284 

2 4 

-2.3*3055800 

25 

1 .?551? CG *7 

26 

— 1.77 C 2F3 B 66 

27 

1.2°72 T C. 390 

28 

-1.3174* 6581 

2 Q 

— .700664931 6E— 02 

30 

.9333140705 

31 

-.949121CA 68 

32 

-.7956832810F-02 

33 

-.7979C; 1 618F-02 

34 

-.13755‘ r '9?26E-Cl 

25 

• 6 6 2 5 0 : 9 6 1 0 

26 

-.6747900634 

37 

-•5C516' ; * P *3 

3 R 

. 4. ep Q5866 ?7 

39 

-.137OP71332E-01. 

40 

-.13935 259796-01 

*1 

- « 2 *6 ''l 7° 5 P—01 

*2 

-.*3961-* 1 f 6* 

43 

.4320225570 

£.4 

.3 5 3 76 31? p 5 

4 5 

-.2551521992 

46 

- . 1 8 2 7-1 0 3 9 4 C c -0 1 

47 

-.1 93360*9 33 p -01 

49 

-.217751 1 ^996 -Cl 


•11776108266-01 

.ii836Q0290f-oi 

.74544530P4E-C2 

.T^Ofcp 3607° F-02 

.47R5C99446F-02 

.47892760816-02 

1.35*117954 

.3?90107??4F-02 

.324156971*6-02 

,97?4C77fl*9 

.9731° 62 716 

.A 703500142 

•2633 7 02125F-02 

*26 3 0006 2 79f -02 

* 24 ^C 233 ? 6 r r -02 

•256 1 2535GPF-02 

.624973U6? 

• 626015*917 
*5**5626974 

. a 1701 747P7F-03 
• 1300*8° 1C4E-02 

• 3141754671 6 — 03 
*3 1? 041 41L0F-C3 
.41 9434987° 
,42081 °7?6 ft 
,?°7 Q P5 3 273 


71 

72 

73 

74 

75 

76 

77 
76 
70 
80 
81 
82 

83 

84 
*5 
86 
97 
88 
80 
°0 
01 
02 
03 
Q4 

05 

06 


STMPLF EIGENVALUE COMPUTATION AT STATION NUMBER 
651,7617 MACH MO. - .°2^ 


. ? 0 C C C C 0 0 


-.35000000 


GROUP VFLPCITY t:n*PUTEO 

VA « •76258062608216+00 -*87147756395786-01 



4 


• 1678088948 E— 01 
•2201649160P-01 
.19751618126-01 
••20O2208220E-01 
■•200718132BE-01 
■•1742194054 E— 0 1 
-.13733790506-01 
-.11921R7P06E-01 
-.1231495*056-01 
-.522R152673E-02 
-.57326538196-02 
-.4731*64698* -02 
-.1893742311F-02 
-.13143498506-02 
1632292380 ^- 0 ? 
-•93777360456-03 
-.8P18308574E-03 
-.8733997790E-03 
—.726831 2275E-03 
-.7X46234 00 4F-C3 
-.71173^64^9F-03 
-.68665666056-03 
-*fc p 30179734F-03 
•*• 68409 1 5966 E —03 
-*68822541736-03 

-.6331040299F-03 

V/C * 


-.267504O801E-02 
.22348333066-01 
.2118300075E-01 
.123O750030E-01 
•175160QO98E-01 
•16328212486-01 
•1212730847E-01 
• 1 2 1 7 6 3 06 8 OF— 01 
.93948614656-02 
•7488797279E-02 
•6224092783E-02 
.56122666076-02 
•3801319P76F-02 
.29870772196-02 
.289C593917E-C2 
.16C0007335E-C2 
.11785145656-02 
•1190206605E-02 
, 70990 p 05066— 03 
.5177061182F-03 

* ^6 11418 343f -03 

.30474808316-03 

.2547960259F-C3 

.26656292606-03 

.42213893116-03 

.35382448446-03 

•021169 21 


NODE POINTS USED 


.16937624584796-01 • 2635 1 28 54 50906-02 


•39912037910996+00 -. 5571 343963043E-01 
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Printout for Test Case No. 3 


o# 

0 , 


0 . 0 , 

0 . 0 , 


O.Of 

0 . 0 , 


0 . 0 , 

0 . 0 , 


0 . 0 , 

0 . 0 , 


0.0, 0.0, 0.0, 

0.0, 0.0, 0.0, 


•87E+02, .ft9F+02» 0.0, 0.C, 

0® 0 , 0.0, 0.0, 0.0, v/ 


0.0, 0.0, 0.0, C.O, 0.0, 




o o 

-n 31 

"O O 

o 2 

o > 

73 P 

© S 

C Js* 

> Q 

r* 


3a 


YE*? AICFCIt UP°FR SlIPFACF- 
rwn&o « p.ooo p T 


-SUCTION U244 



NEC A T I VP OF »tO p AL EIGENVALUE SPECTRUM PRINTED FOR * 


AL °H A ■ - # 2 C 4 1 3 


3ETA- .44461 


1 

9.310523317 

• 1 6231 P2579 

20 

2 

-9. 206359*1 0 

• 167 3156660 

21 

3 

6. V?lf27?47 

•794696H170F-01 

22 

4 

-6. 40 3C6C f 0 2 

.7Q4612353RF-01 

23 

5 

4 . V CO? *%? 6 4 0 

.3963779431F-01 

24 

6 

-4.473902725 

• 39*. 9562290F-01 

25 

7 

-3. 167446075 

• 19313P70M F-01 

26 

8 

3 • 07?4°6 P 1 7 

•1 Q 40038616F-C1 

27 

9 

-2.1 ?99 67 164 

.9236217390F-02 

28 

1C 

2.0250' 6169 

.935666QAX3F-02 

29 

1 1 

1. 270^^5940 

*4 75 909 20 62 F -02 

30 

1 ? 

-1 .3083664*5 

.462875? 69 9F-0 ? 

31 

13 

. 766P?P7f 71 

. 3321804 56 7 e - 02 

32 

14 

-.5 >52955222 

.20^69273146-02 

33 

15 

•5)3120^356 

.2542^962736-02 

34 

16 

— *5^35 220860 

.2PR13341076-02 

35 

17 

-.52328446 85 

•2°55367300F-C3 

36 

IP 

.4 2 2 2 3 C f 1 2 9 

.4 26630551 °F-03 

37 

19 

• 6f 3 0576 2Q9flf:-c? 

. 2 396736414 



SThpif i: I G F ► V A L 1 1 F CPMPUTATIQm AT STATION NUM^R 
RFY * 651.7617 HflCH Nn t . ,973 

XLE^T • .6 5 COCO COE -0 3 P S I * *5.000000 DFG°FFS 


“.20*12673 * FT A « 


, 444^0924 


GROUP VFLOCTTy fnMptiTFn 


„67CP 702700 97 OF + 00 -* 791 J 5 R 394 1 046E-02 


NEGATIVE OF 'HTML EIOFWVALUE S D E C T p UM PRINTED FOP I 


alpha, -.21952 


9.222P37579 
-9. 203050700 


.16231 60591 
.16231 53524 


2 


-.24B3565089 
.1502177016 
.6404564174C-02 
•97267 06 466F-02 
.B32236472OF-02 
*B 60 9553494c. 02 
•553597 69 15F -02 
•4206065602F-02 
. 3R17!94fl67f-0? 
-*.572 7 3044R3 c-o? 
-.1717R43284F-01 
-.196^3557Q3F“01 
-.21795759326-01 

-• 4374091301 r -01 
-.4466O37232C-01 
-.4901567201F-01 
-.4904052667E-01 
-.4905509725E-01 


y/c ■ 


•3881155746E-03 
.38731134?,?F-03 
.1708653956 
.1091476653 
.772735 39 38F -01 
.50513C6405F-01 
.354059«700F-G1 
.9623107 96 6E -02 
•1956762349F-G1 
•1893023451 F— 01 
-.455559Q691F-02 
.8 345636753E-02 
.79OB740096E-02 
• 15513235 4 7E — 0 2 
.2603 765725F-02 
.923111 0 Q 76F-G3 
.4715943606E-03 
•5346732594F-03 


.021169 101 


NODE POINTS USED 



. 151875244 5743E-01 . 46074 6728 8440E-02 


.353 33 42663 778E+00 -.731 5 55562 42 08E-02 


2287517728 

1698230869 


3880712942E-03 
3873 824038E-03 



3 

6. 427804742 

.794645249 IE — 01 

22 

4 

-6.396887732 

•7946561773E-01 

23 

5 

4.490213469 

.3063189951E-01 

24 

6 

-4.464940188 

•3960146484E-01 

25 

7 

-3.055772418 

•1931P9687PF-01 

26 

8 

3.CR4U 2 514 

• 1039*749? 6F— 01 

27 

0 

-2.0257OC50C 

•92410105? 9F -02 

28 

10 

2.C2911R41? 

•93525*5399F-02 

29 

11 

1.286611303 

.4745580951E-02 

30 

12 

-1.2921*0588 

.464H04805F-02 

31 

n 

.7*?64f 0804 

.3252274403 F-02 

32 

14 

— .80*09 K 06 op 

•3042574306F-02 

33 

15 

.5493002504 

•2509O31652F-02 

34 

16 

-.*675151376 

•290630246 6 F-C2 

35 

17 

-.5033734535 

.3114705251 F-03 

36 

18 

.4<,1 9576640 

.42513 80 355F-03 

37 

.1024184751^-01 .23061372*6 

. SIMPLF EIGFNVUliF CPMPtlT AT T PM at STATION MUMPER 

10 

• 651. 

7617 M ACH N n, • 

.923 


XLENC * 

• 650CC CCOE-03 

PSI • 87.000000 DEGREES 

PH A- 

“•?l Q 51 o 03 BETA ■ 

.43721447 

OMEGA 

GROUP VFt n T I TV Cn-PIJTFO 

VA' • • 7013C96762656E+00 . 2 35 3996063 571E-01 

VR 


negative 

OF GLOPA.i EIGENVALUE 

SPECTRUM PRINTEO FOR l 


ALPHA* -.23464 

8 ET A * .42929 


1 

9.226141125 

.1623177316 

20 

2 

-9. 190754070 

.1623149140 

21 

3 

* • 4 3 3066 8 5 6 

.7Q45908703E-01 

22 

4 

— 6.3°C7?7228 

.7946071 600 F -01 

23 

5 

— 4.456C?? r 44 

•396C680518F -01 

24 

6 

4.50*139402 

•3O62567009F-01 

25 

7 

-3.0441227^0 

.103?3P4*4?E-Ol 

26 

8 

3.09572*260 

• 1 °3 9C *0 50 3 F -01 

27 

9 

2.053176P97 

.03482O7576F-02 

28 

10 

-2 •0116313 04 

.924579071 FC-02 

29 

11 

1 • 30273? ? 1 0 

.47?2653iO?F-02 

30 

12 

-I.27509y.ri8 

.4654102222E-02 

31 


.99.R4196560E-02 
•1605406348F-01 
.1502893597E-01 
•1764639746F-0X 
•15112072926-01 
•1627010255F-01 
.1525119723F-01 
.72940156 RRF-02 
— •322l‘* M 53?5E-0 2 
-.36525R6302F-02 
—• 40062 433 26E-02 
-.2429R403P3F-01 
— .262153159RR-01 
-.294U52R48C-01 
-•2943720354F-01 
^•29451P2P58F-01 


.1707916026 

• 1 090 38 3 578 
•770 96 150 80 E -01 

• 5 0779 89 647 E— 01 
•3509352207E-01 
•7371316057F-02 
•216613 q 9 51E -01 
•17P 37625236-01 

—•51745116566-02 

• 11 8.25695556-01 
.6P69349563E-02 
•15756290406-02 
•25O2073686F-02 
•9222564025E-03 
•47148*74026-03 
•534655293° E -03 


X/C * .021169 101 NODE 


•19756640 96 934E-02 . 447774 982492 2E 


■ .36617774891236+00 . 11 842 568 1 2019E-01 


-.2091110776 
•1804642718 
.135445P6R7E-01 
.22350397676-01 
.2169912288E-01 
•26706572648-01 
.249C53546QE-01 
•1141929O79C-01 
.2837004291F-01 
.26671 36487E-01 
•20654QP823P-01 
• 1 1 08 090C18 E -01 


.3880185389E-03 
. 33 744 2644 8 E— 03 
•170691 27*2 
.1087876829 
. 76798998848-01 
.50654 *8459F-01 
.34663*94338-01 
-.4464291608F-02 
.66 37156190F-02 
.228317R059E-01 
.16215476476-01 
. 1 38 3499 3 61 f -0 1 


POINTS USED 
02 



tU 

<T> 


13 

-.7909379365 

•3302079 60 4E-0 2 

32 

24 

.8005240^90 

«3186766855 p — 02 

33 

15 

*5<>f 5124QQ0 

•247Q3P0777 E-02 

34 

16 

-.55150^ 19«6 

.29360846248^02 

35 

17 

^,4634505560 

•3248044964F-03 

36 

18 

19 

.461726*278 
• 1;} 57221112 F^Ol 

•4233427686F-03 

.2395229022 

37 

STPPIF r IGFf'VAt HE CHHPtlTATlON AT STATION 
651.7617 *ACH 9 0 9 23 

NUMREP 

: N G • 

• 6 ‘»COC C 008-0 3 

p SI - B9.000C00 

DEGREES 

la 

-.2:1464387 BETA- 

.42928703 

DMEC 


GROUP VFIOCITY OOMPUTEO 


VA * .74042447456Q6E400 . 5961675247658F-01 VB 


. 1371B49303E-01 , 6600347114 E-02 
-.48096905078-02 . X61 04 3 74 5 2f-02 
-.5 72 8522298 F -02 .2 5 62 1 1 92 50F-02 
-.9771214416E-02 . 921 297 51 63 E -0 3 
-.97Q0OO4696E-O2 . 4 71 3 7495 46E-03 
-.981267404CF-02 • 53 4 63 5 1 449 E~o 3 


x/c 0 *02X169 101 NODE POINTS USEO 


-• 1188258236228F-01 . 36 73664 031 681 E-02 


•385203778 30 14E+00 .3429229394044E-01 


ORIGINAL PAGE 1% 
OF POOR QUALITY 
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11CAP0IN 


ONSTAPT 

2# * 

OIRLINO 

1# 

ONSTTP 

20 # \ 

oninteg 

2# 

oityp 

0# \ 

OIRFGIN 

C# 

ONP 

2# 

ONWANT 

0# 

ONSTAT 

1# 

0 I TP TV 

5# > 

OPFPFO 

• IF* 

OAt ppa 

0.0# 

0° F T A 

0.0# 

OTAR 

0. 

0 NA 8 

c. 

CAt&X 

0.0# 

ORETX 

c.c# 

CIPP1 

0# 

0 1 PP 2 

c# 

0 1 D P 3 

0# 

0IP54 

0# 

0 T p P 5 

0, 

01 PP? 

c# 

ON 7 F P Q 

2 » 

COFYIH 

0.0# 

0 P A 0 TN 

0.0# 

00ST7TN 

0.0# 

C X N I N 

0.0# 

OICHN 

If * 

C T^S T 

1# 

OPSI 

.«E*< 

0*L c KC 

* 1 F-l 

ON PS I 

4# y/ 

ONXIFN 

1# 

0-G 

4# 

ONG 

21# 

CK 

5# 

0NCHF8 

21# 

0104** 

2# 

OIPPZ 

10# 

OYEOGF 

.!£♦( 


OtFNO 

YEPZ AIPFOTL UPPEP SUP FACE SUCTION U244 

C HpPD • P .000 FT 

) 


Printout for Test Case No. 




0 * 0 # 0 . 0 , 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 * 0 # 0 * 0 # 0 . 0 # 
0.0# 0. C# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0*0# 


3Z# • r4E+0Z # • 86E + 
3.0# 0.0# 0.0# ✓ 


D. 0 > 


-~J 


Ainvno mod jo 

B5 mvd TVWiOiao 



2 



•3 0*707969 3 44 9 £-01 -*26 5X05750920 56-01 


IT® IV • 5 OPTION AT STATION 2 LOOKING FQR 

psx - 80*000000 dfgpees,** phi- 00*232136 


UNSTABLE MODE *0* XLENC 


.100000006-02 


FOP ITRIV-5 OPTION, NO UNSTABLE NODE AT STATION 2 XLENC- 


* 10000000 E-02 PSI- 80.000 DEGREES 


NO UNSTABLE u ODF FOUND IN GLOBAL CALCULATION 
USED IN SUBSECIIENT LOCAL EIGENVALUE SEARCH. 


. THE LEAST STABLE MODE WILL 
THIS IS * 


BE 


. 296546815740 5E-C1 -.24750215428676-01 

I T R IV - 5 ODTTOM AT STATION 2 LOOKING FOP 

PSI * 82.000000 DEGREES* * t PHI- 0 0.232136 


UNSTABLE MODE FOR XLENC * . 10000000E-02 


FCP TTPIV-5 OPTION, NO UNSTABLE MQDP AT STATION 2 XLENC* 


• 10000000E-02 o$I- 


82.000 DEGREES 


i 

i £ 
> 2 
l > 


o -o 

c S 
> P 
r; ivi 

12 ta 


NO UNCTA0LE MOPE c OUNP IN GLOBAL CALCULATION 
USED IN 3 UBSF CUE NT LOCAL EIGENVALUE SEARCH. 


. THE LEAST STABLE MODE VI 
THIS IS t 


LL 


BE 


• 1936!! 22641 6 30F— 01 -. 2 2 90 3 698 96 62 P E-01 

IT® IV * 5 OPTION AT STATION 2 LOOKING FOR 

PSI ■ 84.000000 DEGREES**, PHI- 80.232136 


UNSTABLE MODE FOR XLENC - . 10000000E-02 


FOP ITPIV-5 OPTION, NO UNSTABLE Mnop A T STATION 2 XLENC- 


•10000000E-02 PSI- 84.000 DEGREES 
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2G-30000000T* 


S33d93(J 000*08 


20-300000001* 


S33a93G 000*98 


20-30000000 t* 


\ 

I809S2 * V9 «1H d *"S33aOiU 000000*23 * ISd 

- 0N31X *03 300* 318VXSNO dU3 9N1MUU1 6 NUlXVXS XV NUIXoJ 5 - Aldil 

20-35 8t *208 26006**- 20-3 86X939629*2 12* 

I SI S I Hi * HOb V 3 S 3mVAN30I3 1VD01 XN3U03S80S NI 0350 
3b HIM 3QGU 3 16VXS XSV31 3HX * NQI IVIdO 1VD 1V8019 HI ONnUB BUud 318ViSNa UN 


t 

•ISd 20-300000001* -0N31X 6 NOIiVXS XV 300W 3l8VX$Nn ON *NOIidO 5-AIdiI dOB 


18 095 2* *9 »I Hd 4<< S33d93U 000000*06 ■ ISd 

• 0N31X aQ 3 BOOM 31dVXSN(1 dOd 9M XUQ1 £ NOIXVIS XV NUIioO 6 • Aldll 

2Q-39«T**Ot£ESS***- 20-32 12630692 Ib€X * 

* SI SI Hi *HDd V 3 S 3 niVAN 30 l 3 IvOUl XUBOOJStinS HI Q 3 S 0 
3 b mu 3 oqw aibvxs xsvai bhx *Nonmmo -iveuio ni onoub iuo* auviSNn on 


■ISd 20-300000001* -0N31X 2 NOIXViS XV 3UUw 318VXSNH UN 'NJIidu 5-AIdiI aUB 


■ 3N31X dOB 3Q0W 318VXSNO 


96 IZE2* 08 ■! Hd ***S3Ba9BG 000000*98 - ISd 

»03 ‘JNIXUOI 2 NOIXViS XV NOIidO 5 • AldXI 

TO- 36 1595 1602X502 *- 20-3 260600lo52U3* 


i SI SIHi *H0dV3S 301 VAN391 3 1V0U1 XN3003S80S NI OBSO 
38 mn booh anevxs xsvai 3 hx *Nonvinoivo iveoio ni onoqb 3qon aibvxSNfi on 





£0-39<m6242T29E9*- Z0-3Z 8©44SI» 54<m* 

« SI SI HX *H3dV3S 3MVAN3913 1V3J1 iN3i)03S6fl5 Nl 03SO 
38 TIIA 300H 3 18VXS XSV31 3HX * NCI1V 1031V 3 1VW019 Nl ONOOd 3 UJh 318USNfl ON 


S338930 000*98 -lSd 20-300000001* *3N31)i £ KOIXVXS XV 3Q0W 318V1SNO JN 'NUIXau S»AI«XI dOd 


P7) > 

u. J 

i’.T? Z3 

<€ V> 
ft. Of 


pj CC 

<£&. O 

S'o 

0 O- 

DC u- 
O O 


I8Q9S2*V9 *lHd *'*$33d9JU 000000*98 • ISd 
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I0-3*S62**X*886El # - 1 0-3 *rLULlLQllL*r £ l * 
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T8Q95 2 * V9 »IHd <<# S33d930 000000**8 • ISd 

20-300000001* ■ 0N31X dOd 3GUN 318VXSNO dUd 9N1XJQ1 £ nJIIVXS XV NJUdU 5 ■ AldXI 
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o 
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ITPIV • 5 OPTION AT STATION A LOOKING FOR UNSTABLE MODE FOP XL ENC - 

PSI - 80.000000 DEGREES,#, PHI- 51. 960599 


FOP ITRIV-5 OPTION, NO UNSTA8LE HOOF AT STATION 4 XLENC ■ . 10000000E-02 PSI- 


Nfl UNSTABLE NODE FOUNO IN GLOBAL CALCULATION. THE LEAST STABLE MODE WILL BE 
USED IN SUBSEOUENT LOCAL EIGENVALUE SEARCH. THIS IS i 

.17B51381AI957F-01 -. 200226628981 2 E-Ot 

ITPIV • 5 OPTION AT STATION A LOOKING FOR UNSTABLE MODE FOR XLENC • 

PSI • 82.000000 DEGREES,,, PHI- 51.960599 


FOR ITPIV-5 OPTION, NO UNSTABLE MODE AT STATION A XLENC- . 1 OOOOOOOE-02 PSI- 


NO UNSTABLE MODE FOUND IN GLOBAL CALCULATION. THE LEAST STABLE MODE WILL BE 
USED IN SUBSFOUENT LOCAL EIGENVALUE SEAPCH. THIS IS t 

. 106 P 52626 6 PA4F-01 -• 1 96391 3 49636 5F-01 

ITPIV • 5 OPTION AT STATION 4 LOOKING FOP UNSTABLE MODE FOR XLENC • 

PSI • 8A.OCOOOO DEGREES,,, PHI- 51.960599 


FOP ITRIV-5 OPTION, NO UNSTABLE MODE AT STATION 4 XLENC- .10000000E-02 PSI- 


NO UNSTABLE NnoE FOUND IN GLOBAL CALCULATION. THE LEAST STABLE MODE WILL BE 
USED IN SUBSEQUENT LOCAL EIGENVALUE SEARCH. THIS IS i 


Ul 

M 


10000000E-02 


80,000 DEGREES 


10000000E-02 


82.000 DEGREES 


10000000E-02 


84,000 DEGREES 


ORIGINAL PA/L2 "3 
OF POOR QUALITY 
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•11 2373087849 96 -01 -.97659061909728-02 

I TP XV • 5 OPTION AT STATION 4 LOOKING FOP UNSTABLE MODE FOR XLENC • ,100000008-02 

PSX • 86. 000000 DEGREES### PHI- 51.960599 


FOP ITPIV-5 .OPTION# NO UNSTABLE MODE AT STATION 4 XLENC- . IOOOOOOOE-02 PSI- 86,000 DEGREES 


ITRIV • 5 OPTION AT STATION 5 LOOKING FOR UNSTABLE MODE FOR XLENC ■ .100000008-02 

. PSI • 8C.OCOOOO DFGPEES### PHI- 43.95289* 


NON-DIMENSIONAL FPFOUENCV AT THIS STATION IS FPEO- . 195777180B092E-03 
INITIAL STATION NO, 5 X/C- .003529 RESULTS ARE 


ALPHA- -.08950874 BETA- .12003145 OMEGA- . 19576 2 1717 527E-03 .44 5093514572 5 E-03 

GPOUP VELOCITY COMPUTED 

VA • ,635501 1645033F+00 -. 1 8 1 2740540037E-0 1 Vft - .5368518858113F400 . 37P 38 3977 72 88E-01 

APG - .aTOjQSQBc^Ol 

XLENC - • 1 CCOOCOO F-02 PSX» 82.554484 PHI- 43,952894 RFREG - . 1 OOOCOOOE 403 HZ 

N FACTOR AT INITIAL STATION NO. 5 IS N- ,030 

STATION NO 6 PPFVIHUS RADIUS .3755173E405 ORIGINAL REY ,28576488403 ORIGINAL DSTZ .2181893E-03 

LOCAL MACH NO. ■ .625 

STATION NO 6 NEW RADIUS ,3755171E405 NEW REY .2857647E403 NEW DSTZ .2181P92E-03 

DR- -.201533 3E-01 OS- .3122 9716-01 


Q 

3 

P 

i -0 

■ 

9 0 

- r3 


NON-DIMENSIONAL FRFCUENCY at THIS STATION IS FREO- . 1 866796 1 4471 3E-03 

ALPHA- -.09338092 BETA* .14366735 OMEGA- • 1 8 6677 992 56 17E-03 ,94508738694576-03 

GROUP VELOCITY COMPUTED 

VA • ,6^54254049*37E400 -• 873 24 951 5 3 2 57E-02 VB - . 473797931 54 70E 400 , 31925 5428 21 58 E-01 

APG * ,5355 840 IF + 01 

XLENC - • 1 OOOOOOCF-02 PSI* B4. 111818 PHI* 38*907583 RFPEQ - .1 OOOOOOOE 403 HZ 

N FACTOR AT STATION 6 X/C - .005P045 IS N - .158 

STATION NO 7 PREVIOUS RADIUS .3755171E405 ORIGINAL REY .3645321E403 ORIGINAL DSTZ .2551469E-03 
LOCAL maCH NO. - .718 


) 
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STATION NO 7 NFV RADIUS . 3755169E+0 5 NEW REY .3645319E+03 NEW OSTZ .2551468E-03 
OR- — * 1921 2576—01 . DS- .32794696-01 


NON-DIMENSIONAL F® EOUE NC Y AT THIS STATION IS FREO- . 192 33448 59743E-03 

ALPHA* -.10177567 BETA- .17262250 OMEGA- • 1923341452303E-03 .1546007825600E-02 

GROUP VELOCITY COMPUTED 

VA - .6609P099b5e26E+00 .25996053835686-02 V8 - .42682321489446+00 .3112758395200E-01 

A p C - .770105656+01 

XLENC • • 1 0000000 F -02 P$I- 85.105776 PHI- 35.417176 RFRE 0 • . 1 OOOOOOOE *03 HZ 

N F ACT°R AT STATION 7 Y/C • .0036099 IS N ■ .372 

STATION NO 8 PREVIOUS RADIUS .37551696+05 ORIGINAL REY .4506319E+03 ORIGINAL DSTZ .2981838E-03 

LOCAL “ACM NO. - .796 

Station NO 8 NEW PADIUS . 37551676+05 NEW REY . 45063156*03 NEW OSTZ .2981835E-03 

OR- — • 1 90751 9F— 01 DS- .3516352F-01 


NON-DIMENSIONAL FREQUENCY AT THIS STATION IS FREO- . 2047697748203E-03 


ALPHA- -.11280595 RFTA- .2 0523399 


OMFGA- .2047690157227E-03 . 2 1 708858 95383 E-02 


GROUP VELOCITY CrMPOTFO 

VA - .66748970496256+00 . 15 B54564 728466-0 1 VB • .3966896919 5886 

APT, • • 93*6242 1 F + 01 

XLENC • .lOOOCOOCF-02 PSI- B5. 859224 PHI- 32.935956 

N FACTOP AT STATION 8 X/C - .0122222 IS N - .672 

STATION NO 0 PREVIOUS PADIUS .37551676*05 ORIGINAL REY .54583126+03 

LOCAL MACH NO. - .863 

STATION NO 9 NFV RADIUS .3755165F+05 NEW REY .5458306E+03 NEW DSTZ 

DR- 194441BF-01 TS • .3805954F-01 


+00 . 32350412 17049E-01 

RFREO - .100000006+03 HZ 

ORIGINAL DSTZ .3479557E-03 
• 3479554E-03 


NON-DIMENSIONAL FPEOl'ENCY AT THIS STATION IS FREO- . 222 5074196042E-03 

ALPHA- -.12624730 BETA- .24237442 OMEGA- • 22250739 37947E-03 . 278978 28 3 2140E-02 

GROUP VELOCITY COMPUTED * 

VA • .67259484514786+00 .26791502179086-01 VR ■ • 37471 67972700E +00 .326660143731 5E-01 

APG • .10413436F+C2 

XLENC - .1 COOOOOOF-02 PSI- 86.413775 PHI- 31.100183 RFREO • .10000000E+03 

N FACTOR at STATION >9 X/C - .0163775 IS N « 1.049 


HZ 


Ln 

U> 


ORIGINAL Pk&Z 13 
OF POOR QUALITY 
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STATION* NO 10 PREVIOUS FADIUS .37551656+05 ORIGINAL REY .65176178 + 03 ORIGINAL DSTZ 

LOCAL W ACM NO. ■ ,S?3 

STATION Nr 1C NEW RADIUS • 3755 163E+05 NEW R E Y .65176096+03 NEW OSTZ .4048866E-03 
OP. -.20090578-01 OS- .41290258-01 


.40488916*03 


NON-DIMENSIONAL FREQUENCY AT THIS STATION IS FREO- .24442274377846-03 

ALPHA. -.14180001 BFTA. .28462826 OMEGA- . 2 44044791 59 52 E-03 .34059543656278-02 

GROUP VELOCITY CP^PUTFD 

VA - .6768C02?49OA5F*00 . 3 5 9761 79091 29 E-01 VR - . 3572Q6 10X844 2 E +00 . 32407739100496*01 

APG - • 1099 1 54 1 E + 02 

XLFNC - • 1 COOCOCP E-02 PSI- 96.823087 PHI- 29.660542 

SSSt *S*f f SSS«$f f »Sf MtSStSSISSStttSttiSilttSSftStt tttt 
N FACTpo AT STATION 10 X/C • .0211600 IS N « 1.490 

t*<ttttft<tt<M*1$<ft«StSYS«S$*SSttSttM'l>^tffSS*SStt 

STATION NO 11 PREVIOUS P A 01 US .37*5163E+05 ORIGINAL REY .7743292E+03 

LOCAL .MACH NO. . .075 

STATION NO 11 NEW PAOIUS .37551616405 NEW REY .7743279E+03 NEW DSTZ 

DR. 2087060E-01 OS- .4470457E-01 


RFPEO ■ .10000000E+03 HZ 

ORIGINAL OSTZ .47270188-03 
.47270118-03 


NON-DIMENSIONAL FREQUENCY AT THIS STATION IS FREO- 


•2724997410594E-03 


ALPHA. -.160P6P97 BETA* .33459506 


OMEGA- .272303 59621 3 4 E-03 .40758325480518-02 


GROUP VELOCITY COMPUTED 

V* . .(!79933*39°3S?E*00 . *9*95 5 178 821 1 F-01 VB . . 343419878351 3E + 00 . 3219582269! 78E-01 

A D 0 * .11319399E+C2 

XLENC • .10000000r-02 PSI- 87.139723 PHI- 28.537903 

N FACTOR AT STAT[n N 11 x/C • .0266023 IS N . 1.989 

STATION NO 12 PREVIOUS PAOIUS .37531618+05 ORIGINAL REY .1028970E+04 

LOCAL MACH NO. • 1.C57 

STATION NO 1? NEW PAPTUS .3755156E+05 NEW REY .1028967E+04 NEW OSTZ 

OP- *. 455CG46E-01 DS- .1009249E+00 


RFPEO - • 10000000E+03 HZ 

ORIGINAL DSTZ .6159599E-03 
.61595866-03 


o o 

=n 

*0 O 
O?. 
O 7* 

50 r* 

<o 3 

%\ 

z . * ri 


NON-DIMENSIONAL FRFOUFNCv AT THIS STAT IDN IS FREO- . 331 868 2040735E-0 3 

ALPHA- -.20117245 BETA- .43996059 OMEGA- . 331868 16431 49E-03 .48914276679776*02 

GROUP VELOCITY COMPUTED 

VA - .6924)349799366+00 . 50B443 52 1 5300E-01 VB » .3 272 5 984696 1 4 E+00 .2794 899361442E-01 

APG - .103690038+02 

) 
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XtENC • .1C000000F-02 PS I- 87.630087 PHI*. 26.942193 

N FACTOR AT STATTON 12 X/C - .0394226 IS N * 3.084 

STATION NO I? PRFVIOlfS RADIUS .3755156E+05 ORIGINAL REV .1303032E+04 

LOCAL NACM no. - 1.105 

STATION NO 13 NEW RADIUS .3755 15 1E + 05 NEW REV .13030286+04 NEW DSTZ 

DP. -.40$*i37f-ci DS * . 1169 6726+00 


RFREO • .100000006+03 HZ 


ORIGINAL DS TZ .77457996-03 
.77457776-03 


NON-DIMENSIONAL FREGUEK Y AT THIS STATION IS FPEO- . 402814899272 8E-03 


ALPHA- 


-.2498*333 


BETA- 


.55467079 


OMEGA- 


GROUP VELOCITY or mpijtf d 

VA - .70OP4 899PO535E*00 . 5075 41 9921 4 35F-01 V« • 

APG - • 80*224966 +01 

XLENC • • 1 OO00C0C E-02 RSI- 88.118746 PHI- 

N FACTOR AT STATION 13 X/C * .0549125 IS N ■ 4.163 

STATION NO 14 PREVIOUS RADIUS . 375 5 1 5 1 E +05 ORIGINAL REV 

tnC AL MACH NO. - 1.121 

STATION NO 14 NFV RADIUS . 3755 1 4 3F+05 NFW PFY .17652966+04 

DR- P685374E-C1 DS- .2084236F+00 


•4028145626605E-03 .48885791734016-02 

.3254091975 190F +00 .2 33078 85 49832 E-01 

26.131437 RFPEO • . 10000000E+03 HZ 

. 1 765303E + 04 ORIGINAL OSTZ .1047485E-02 
NFW OSTZ . 10474 80E-02 


NON-DIMENSIONAL PPECUFNCY AT THIS STATION IS FREO- .53825876179066-03 


ALPHA- 


-.34306793 PfTA- 


.74774385 


OMEGA- 


• 5 36232 278 8633 E-0 3 .400356034 52226-02 


PHI« 


GROUP VELOCITY COMPUTED 

VA • .73643538332596+00 .49313658600356-01 

ARC • . 47169641E+01 

YLENC • . 1 OOOOCOC R-02 PSI- 88.784659 

N FACTOP at STATION 14 X/C • .0831798 IS N • 5.497 

STATION no 15 PRFVinuS RADIUS .3755143E+05 ORIGINAL REY 
LOCAL MACH NO. - 1.H5 

STATION NO 15 NEW PAOIUS .3755132E+05 NEW REY .21840586+04 
OR- -. 1024660E+00 DS- .24806106+00 


VB ■ .3379717295567F+00 .20828730628336-01 


25.861172 

.21840706 + 04 
NEW DSTZ 


RFREQ - 

ORIGINAL DSTZ 
.12968096-02 


.10000000E+03 HZ 


.12968166-02 


o o 

-n 

"0 CT> 

o g:. 

o ^ 

a3 r* 

iO “0 

Cl > 

> 65 

r* r4 

3 a 


LTI 

tn 


NOM-DIMFNSIONAL FOFCUSNCY at this STATION IS FPEO- 

t 

ALPHA- -.43364057 BETA- .92158523 

> 


.66944003665236-03 

HMEGA- .6681948124998E-03 .24817332035346-02 


\ 



U1 

<J\ 
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PHI- 


GROUP VELOCITY fCMPuTET 

VA • .767P830955321E+00 . 2872948791411E-01 

APG - .225736156*01 

YL6NC ■ •10000000P-02 PSI- 89.234616 

N P AC TCP AT STATION 15 */ C » .1171658 IS N - 6.362 

STATION no 16 PREVIOUS PAOIUS .37551326*05 ORIGINAL PEY 
LOCAL MACH MO. • 1.1C6 

STATION NO 16 Nfw RADIUS .37551206+05 NEW REY . 25454296*04 
DR • -.1209249F-+00 DS« .28535526*00 


VB - .35926231509606*00 . 1082222846873E-01 


25.964117 


.25454476*04 


NEW DSTZ 


RFPEO - 

ORIGINAL DSTZ 
.15129076-02 


.100000006*03 HZ 


. 1 512918E-02 


NON-DIMENSIONAL FREQUENCY at THIS STATION is FPEO- .78614386704S2E-03 

ALPHA- -.51346744 BETA- 1.07156418 OMEGA. . 78631 7341 1 891 E-03 .10632850074516-02 

GROUP VELOCITY CO M R*JTEO 

VA ■ .7 9 3254 4.9 247646*00 .2 710623667128 6-02 VB ■ • 377894 8334 2 19E ♦ 00 -.211597408 47296-02 

AFG - . 799857676*00 

YLfA'C - . 1 OOOOCOCF— 02 RSI- «9. 490277 PHI- 26.112309 RFREQ • .100000006*03 HZ 

N FACTOR AT STATION 16 X/C • .1563292 IS N - 6.798 

STATION NO 17 PREVIOUS PADIUS .37551206*05 ORIGINAL REY .20504096+04 ORIGINAL DSTZ .1695941E-02 

LOCAL MACM NO. •_ 1.097 

STATION NO 17 NFV RADIUS .3755107F+05 NEW REY .28504646*04 NEW DSTZ .16959266-02 

DR* -.13712496*30 OS - .31884116*00 


NON-DIMENS I n NAl F^ECUENCY AT THIS STATION IS FREQ- 


.88661749397456-03 


ALPHA* 


-.58171322 


8FTA- 


1.19823652 


OMEGA- 


VB 


PHI- 


GROUP VELOCITY Cr w PUT6D 

VA- • .812C940610687E+00 1 T64 503 575 1 506-0 1 

AFG • .675915056-01 

U^NC * • 1 000 OOOOF-02 P«I- 89.645537 

N FACTOR AT STATION 17 X/C • .2000761 IS N - 6.936 

STATION NO 18 PREVIOUS RADIUS .37551076+05 ORIGINAL REY 
LOCAL MACH NO, » 1.091 

STATION NO 18 NEW RADIUS .37550926+05 NEW REY .3126913E+04 
DR- -.15133276+00 PS* .3479122E+00 


.88677584021326-03 .10338325592746-03 


. 39230028 474 51 E +00 -.1199166878858 E-01 


26.249832 


RFREO • 


.10000000E+03 HZ 


. 3126947E +04 ORIGINAL DSTZ .18619226-02 


NEW DSTZ .18619026-02 


o o 

-n jO 
-O 3 
0 2 
O 

» r" 

O -a 

c 3 p 
> 61 

r“ M 


m 


NON-OIMENS IONAL Ft? EOUFNC Y AT THIS STATION IS FREO- . 


97781971 75 072E-0 3 
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NO UNSTABLE NODE FOUND IN GLOBAL CALCULATION. THE LEAST STABLE MODE WILL BE 
USEO IN SU8SFOUENTLrCAL EIGENVALUE SEARCH. THIS IS I 

.16365*7«2*900F-02 -. 3 90999631 950*6-03 


ALPHA* -.6*3207*9 BETA- 1.313279*3 OMEGA- .978*5927*30056-03 -.*8**0677863156-03 

GROU 0 VFtOCITY CP*°UTFD 

VA • . 8271131502A52E+00 3 121 06556B619E-01 VB • . *03522*766*22 E *00 -. 1 0 3572*781085 E-01 

S\% STABLE REGION ENCOUNTERED— ICON - 1 WAS SELECTED PROGRAM CONTINUES*** 

NO UNSTABLE *nPE FOUND IN GLOBAL CALCULATION. THE LEAST STABLE MODE WILL BE 
• USEO IN SUBSEQUENT LOCAL EIGENVALUE SEARCH. THIS IS * 

.7CC06* 655 *1376-03 -. 6 093 90 1 893 309E-03 

I TP IV - 5 OPTION AT STATION 19 LOOKING FOR UNSTABLE MODE FOP XLENC - .10000000E-02 

PSI - 09.P27521 PEGPf ES# , , PHI- 26. **8557 


FOR ITRIV-5 OPTION. NO UNSTABLE MOOE AT STATION 19 XLENC- . 1 OOOOOOOE-02 PSI- 89.828 DEGREES 


o o 

-n y 

“TJ O 

o 

o > 

VO p 

lO -a 
c > 
> o 

r* ra 




NO UNSTABLE mode FOUND in GLOBAL CALCULATION. THE LEAST STABLE MODE WILL BE 
USED IN SUBSEQUENT LOCAL EIGENVALUE SEARCH. THIS IS * 

♦11 503 5*7293 70 E-C2 -• 8 971 279*1 2 51 5E-03 

ITPIV - 5 OPTION AT STATION 20 LOOKING FOR UNSTABLE MODE FOR XLENC • .10000000E-02 

PSI • 89.078991 PFGPFES... PHI- 26.5*8857 


FOR ITRIV-5 OPTION, NO UN ST ABL F "OOE * T STATION 20 XLENC- . 10000000E -02 PSI- 89.879 DEGREES 

) 
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Printout for Test Case No. 6 


"0 Q 
o T?- 

O 3* 
;» r ; 

,0 13 

c ^ 

3 > & 

r pi 



z 


NH UNSTABLE POOF FOUND IN GLOBAL CALCULATION. TUP LFAST STABLE MOOC WILL BE 



USF 0 IN SUBSEQUENT 

LOCAL 

EIGENVALUE SEARCH. 

THIS TS t 




•134591 9222 572F 

-01 -. 

20271 13205810E -01 




ITRIV- 
XLENC - 

1 AT STATION 
• 3COOOOOC E-03 

2 

looking for unstabl 

MODE AT PSI - 

87.869217 DEGREES 


alpha- 
. ITPIV- 

-.36083P4P 86TA* 

1 NO irSTA«ItITV 

.07603151 0 M EG A • 

FOR INPUT WAVELENGTH RANGE AT 

•12851 93013051E-01 
STATION 2 

-.21022170375986-01 

I TP I V- 
XLFNC • 

1 AT STATION 
• 30C00C0CF-O3 

3 

LOOKING FOR UNSTABL 

HOOF AT PSI • 

85.459882 DEGREES 


ALPHA- 

-.37060323 

BETA- 

.21642434 

OHEGA - 

•4 90490604 5503E-02 

•26045176969906—02 


NON-OTPFNSIONAL FREQUENCY AT THIS STATION IS FREO- . I B01 85 17 16073E-05 


INITIAL STATION OPTIHIZEP LOOP 


ALPHA- -.37223935 BETA- 

GROUP VELOCITY CPHPU TED 

V A • .69Afc5Pfc732396P+00 

ALPHA- -.3808191? BETA- 

GROUP VELOCITY COMPUTED 

VA « . 6O6F4C288137BE+00 


•21343730 OHEGA- . 1801672173 55 IE-05 . 241 68 3657738 8E-02 

• 36872106872 53E -01 VB - .1266455307162 8*01 .4653564857665E-01 

.21814813 OHEGA- • 1 801 8 275 714 79E-05 • 2 310949206473E-02 

.3702107534368 E-01 VB • • 1 2678 08476967F *01 . 42402 043 905 5 8E-01 


INITIAL STATION 0PTINI7EP LOOP 


ALPHA- 


-.38081012 


BETA- 


.21814813 


OHEGA- . 1801 827571 479E-0 5 . 2 31 0949206473 E-02 


OT 

VO 


ORIGINAL PAGE J® 
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GROUP VFinCITY COMPUTED 

VA • .69604O2881378E*OO . 37021075 34368E-01 

ALPHA. -•33102671 BETA* .19078015 

GROUP VELOCITY CPMPUTFD 

VA • •68346209003386*00 .34919720236496-01 


INITIAL STATION OPTIMIZER LOOP 


ALPHA* -•33102671 BFTA* .19078015 

GROUP VELOCITY COMPUTED 

VA - *683462 09 003386*00 .34919720236496-01 

ALPHA* -*33166282 BETA* *191283*6 

group velocity computed 

VA * • 63341Re?44184E*00 *34672984896486-01 


INITIAL STATION 0PTIMI7EP LOOP 


ALPHA. -*33:166282 BETA- . 19128386 

GROUP VELOCITY COMPUTED 

VA • *6f»34l8fi24^i«4E+0O • 3 4 872984 8964 8 E— 01 

ALPHA* -*33!152720 BETA* *19121013 

GROUP VELOCITY COMPUTED 

VA • • 603378 56051 15F+00 . 3486230225492E-01 


6 MO OF INITIAL ST J* T I TN OPTT y TZPP at ST AT TON 


3 


3 


VB ■ • 1267808476 96 7E *01 .42402063 905 5 86-01 

OMEGA* -*19678302189616-03 *26297536825576-02 

V8 » .12573768444716*01 *64601572690196-01 


OMEGA* -*19678302189616-03 *262975 36825 57E-02 

V3 » *1257376844471F*01 .64601572690196-01 

OMEGA- . 1800715358O7QE-05 • 264012 2602 5 15 E-02 

VB • *1257218887476E*01 .64066478705696-01 

OMEGA- • 180071 53 5 8979 E-05 . 2640122602515E-02 

VB • .1257218887476E+01 *64066478705696-01 

OMEGA* .17958156467096-05 .26400952819486-02 

VB - .12571795907846*01 . 64 1 1 8708343 96 E-01 


X/C 


000733 FINAL RESULTS ARE 
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ALPHA- -.33149655 PETA- .19119340 OMEGA- 

GROUP VELOCITY COMPUTED 

VA - .60336945370656+00 • 34 8598 81 65344E-0 1 VR ■ 

ARC - .112550966+02 

UE*C - .33644394F-03 PST- 85.769519 PHI. 

N FACTTO A T INITTAl STATIC wq. 3 IS N» .156 

10CU 0 2.?U NO. 4 . PArI " S • ?7!5173E+ °5 ORIGINAL REV • 1 57XRRA E +03 ORIGINAL 0ST2 .17541336-03 

n^ IOS .«o»5m-or° 5 NfWP£Y * 15n983E + 03 NFV0STZ -175A132F-03 


• 18007104505eRE-05 .26400886975666-02 

.1257 170693 504 E + 01 .64130493718516-01 

64.256081 RFPE 0 - .50000000E+00 HZ 


NON-DIMENSIONAL FPEOl'EMCY AT THIS STATION IS FPEO- .118832O919099E-O5 


MAIN OPTIMIZER LOOP# NUMp. 1 

ALPHA- -.31812062 BETA- .29816462 

GPOUP VELOCITYCOMPUTEO 

VA • .69672138167636+00 • 3 X 528 606654 25E-01 


OMEGA- -.60 2498561 7 069E-O3 .61 1 585 41 8991 3E-02 

VR • .7701 5608 52750E+ 00 • 241 1309205941 E-01 


MAIN OPTIMIZER LOOP, NtfMR. 2 

ALPHA- -.30109352 BETA- .28353768 

GROUP VELOCITY COMPUTED 

VA - . 69196645221 16E+00 . 31937921 57766E-0 1 


OMEGA- 2824671941066E-04 . 62 514 2 5290698E-02 

VR - • 7686807076505 E +00 .308752 37381 47E-01 


MAIN OPTIMIZER LOOP# NUMB- 3 

ALPHA* —.28061432 BETA- 

GROUP VELOCITY COMPUTED 

VA ■ .60868830994348+00 


.27234220 

•3229937100090E-01 


OMEGA- -• 1308803695025E-04 . 6274068050155E-02 

VB - .7676114767547E+00 .36248795821926-01 


ORIGINAL FAGS IS 
OF POOR QUALITY 



MAIN OPT T Ml 7 ER LOOP# NUMB 


4 


ALPHA- -.28924172 BETA- .27292366 

GROUP VELOCITY COMPUTED 

VA • .688840312B547E+00 . 32 27360924780E-01 


OMEGA- .U37105928232E-05 . 6274936080799E-02 

V» • .7676572717639E+00 . 3 59 59 194 57778E-01 


MAIN OPTIMIZER LOOP* NUMB- 5 

ALPHA- -.28922383 BETA- .27290770 OMEGA- . 1 1 89767109895E-05 . 627*9368 31 0 82E-02 

GROUP VFLOCITY COMPUTED 

VA - .68883545C6585F+00 « 32 2 73913928 21 E-01 VB - . 76765 5449801 6E +00 .35966688174266-01 

APG - .346832066*02 

7LFWC « .346454376-03 PSI* 84.701796 ®HI- 51.960599 RFREQ - .500000006*00 HZ 

N FACTOR AT STATION 4 X /C - .0018686 IS N • 1.080 

STATION NO 5 PREVIOUS RADIUS .3755169E+05 ORIGINAL REY .21869516+03 ORIGINAL DSTZ .1915634E-03 

LOCAL MACH NO. • ,517 

STATION NO 5 NEW RADIUS .3755167F+05 NEW REY .21B6P49E+03 NEW OSTZ .1915632E-03 

DR- -. 24338386-01 OS - .327C041E-01 


NON-DIMENSIONAL FR EOUE NCY AT THIS STATION IS FPEO- . 978 «8 51 2 61 8916-06 


MAIN OPTIMIZER LOOP# NUMp. 1 

ALPHA- -.26139009 BETA- 

GROUP VELOCITY CO M PUTFD 

VA • . >0614807441106+00 


.32137169 OMEGA- 

.2656652066105E-01 VB ■ 


-. 2443371463 730E-04 .58592171923776-02 

.59749117647786+00 .20788320631946-01 


MAIN OPT I M I Z EP LOOP# NUMB- 2 
ALPHA- -.21^79885 2 RFTA- 


. 3173 8236 


OMEGA- 


101 2786201 571 E-07 .58641069111196-02 


ORIGINAL PAGE §3 
OF POOR QUALITY 
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GROUP VELOCITY COMPUTED 

VA » .70527974663906+00 . 2685548709663E-01 VB ■ • 5973220390753F + 00 .22101152355706-01 


MAIN OPT I** 1 76* LOOP, NUMB- 3 
ALPHA- -,25590340 BETA- 


.31492213 


GROUP VELOCITY COMPUTED 

VA - .7C475*2H7eO*eEfOO . 2 70 39763 59371 E-01 


OMEGA- .65567684 J7781E-06 .58644832700126-02 

VB - • 597220020 5 5 86 E +00 .2292067943964 6-01 


MAIN OPTIMIZED LOOP, NUMB- 


ALPHA- 


•25592520 


beta. 


.31494840 


OMEGA- 


PHI 


.97703331575186-06 .58645003374796-02 


GPOUP VELOCITY COMPUTE^ 

VA - . 7047* 34*025216 *C0 . 2 703741 7J1 531 E-01 

APC- > .331399336*02 

XLENC « .37073R56F-03 *> S I - P5. 144046 

N E AC TOP AT STATION 5 X/C • . 0035293 TS N - 2.189 

sst!ssmmtmsunsHumsuuu$svMi$timssm$ 

STATION NO 6 PREVIOUS RADIUS .3755167E+05 ORIGINAL RE Y 
LOCAL MACH NO. . .6?5 

STATION NO 6 NEW RADIUS . 3"> 5 5 1 65 F + 0 5 NEW REY .28576456+03 

OP- 2021 62CF-01 . DS- .31270296-01 


VP - .59722080461886+00 . 2291 1 56 1 51 941 E-01 

43.952894 RFR6G ■ . 5 COOOOOOE+OO HZ 


.28576486+03 ORIGINAL OSTZ .218X8936-03 


NEW DSTZ 


.2181890F-03 


o o 

•n g 

*o Q 
0 2 
O '$> 
7> r* 

*1 
> w> 
r 1*1 

-c u 


NON-DIMENSIONAL FREQUENCY AT THIS STATION IS FPEO- . 933 3973298640E-06 


MAIN OPTI-IZEP LOOP, NUmb. X 

ALPHA- -.23742456 BETA- 

GROUP VELOCITY COMPUTED 

VA - *713344260191 1E+ 00 


.34131571 

• 20670571 66730E-01 


OMEGA- -.19392992069506-05 .47846283785206-02 

VB • .51409490929616+00 . 1 4 536697011 92E-01 




o\ 

U> 



7 


•IAIN OPTIMIZER LOOP, NUMB- 2 

ALPHA- -.23631216 8ETA- .33977779 

GROUP VELOCITY COMPUTED 

VA • .71307605148416+00 . 2081 38 30 58483E-0 1 


nMFGA " .88274599952496-06 .47 84 8065 02071 E-02 

VB • .5140456269536E+00 .14927820342586-01 


MAIN OPTIMIZER LOOP# NUMB- 3 
ALPHA- -.23601265 RETA- 


. 33936238 


OMEGA- 


GROUP VELOCITY COMPUTED 

VA - .713C045348216E+00 . 20853 1 8791 5 84E-0 1 VB 


main optimizer loop, numr- 


ALPHA* 


-.23601367 BETA* 


.33936378 


OMEGA- 


VB 


°HI" 


. 941719561 8014E-06 • 4784759024082E-02 

. 5 14032 63 33 9* 8 E + 00 . 150341324 5799E-01 


GROUP VELOCITY COMPUTED 

VA • .7130CH7919430E + 00 . 20 3530693 8495E-0 1 

APG - .2*9497206+02 

YLENC • .M 456176F-03 PST- 85.909293 

H FACTOR at STATnN 6 X/C « . 0059C45 IS N « 3,097 

lqcIl°m 4 ch no . 7 . p :xr s PAntus - 3755i65E+ ° 5 « E y 

”i” 0 -.^ 160 7^-or W P s" IUS .3 2 ; 6 3 I”e-01 E + ° 5 NEW REY - 3 ^ 5316E+03 


.933341 944 2624E-06 . 478475 8999800 E-02 

.514032666 78906*00 . 15 033 78 506505 E-0 1 


38.907583 


REPEO • 


. 50000000E+00 HZ 


• 364 5321E +03 ORIGINAL DSTZ .256X4696-03 
NEW OSTZ .2551466E-03 


o o 

~n g 
"O O 
02 
O > 

sj r 

O “O 

c g 

> S 

r; m 

3 U 


NON-DIMENSIONAL FREQUENCY AT THIS STATION is FREQ- . 961 671 66 55505E-06 


main optimize LOOP, NUMR. 1 
ALPHA- -.22702190 BETA- 
GROUP VELOCITY CP m °UT F D 


.36588692 


OMEGA- -.5143393075986E-05 .43855603813946-02 
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VA m * 710789e6855676*00 .19693295989516-01 VB ■ *4 55502 5804781 E *00 *12473979061496-01 


MAIN OPTIMIZE*’ LOOP# NUMR- 2 

ALPHA- -.22639572 B 6 TA- 

6 PCU* VFLPCTTY Cr^PUTFO 

VA - *71063343686976+00 


• 36A923 19 OMEGA- * 965A6A8336882E-06 • A3856635A5113E-02 

*19782700 69 036E-01 VR • • 45547188652556+00 .1266826590551E-01 


MAIN OPTIMIZER LOOP* MtMp. 3 


ALPHA- -*22634422 BETA- *36484283 


OMEGA- *96459461 2 99 8? e-06 • 43 8 5652110197E-02 


GROUP VELOCITY COMPUTED 

VA - .710621464?4?7E-»*00 . 1 9791 104 39099E-01 VB - . 4 554698931 070E 

ARC - * 20364398E + 02 

YLFNC - .466731 53E-03 P SI ■ 86.397631 PHI- 35*417176 

M FACTOR AT STATION 7 X/C * .0086999 IS N - 3.840 

STATION NO 8 PPFVIOUS RADIUS .3755163E+05 ORIGINAL REY *45063196+03 

LOCAL MACH NO, - ,706 

STATION no 8 Hf W RADIUS .37551616+05 NEW REY .4506312E+03 NEW OSTZ 

DP* -. 189334PF-01 : DS- .35086916-01 


♦00 .12685157468486-01 

RFREQ • • 50000000E+00 HZ 

ORIGINAL DSTZ .2981638E-03 
. 2901 833F-03 


NON-OIMENSIONAL FREQUENCY AT THIS STATION IS FREQ* . 3 02 3848 06229 5E-05 


MAIN OPTIMIZER LOOP* NUMB- 1 

ALPHA- -.22290091 BETA- .39036636 

GROUP VELOCITY COMPUTED 

VA • *110258 6 1 62244 E + 00 .22 382088795656-01 


OMEGA- -.69831245519256-05 .42621887084476-02 

VB - *41759269837346+00 * 1310016433144E-01 


MAIN OPTIMIZER LOOP# *UMB- 2 


a\ 

ui 


ORIGINAL FAGS IS 

OF POOR QUALITY 



ALPHA* 


-. 222 5930 P BETA* 


GROUP VELOCITY COmpUTEO 

VA - . 1101715 * 065656+00 


• 389061 90 

» 22 * 2 2 6 010 5653 E -01 


OMEGA- 


VB 


• 103 * 2 9 * 995 * 70 E -0 5 .* 262388875 ** 96-02 

.* 175721 5025 8 * 6+00 . 131 80 * 2 * 3622 * E -01 


MAIN OPTIMIZER l COP# NUMB- 


ALPHA- 


-. 2225726 * BETA- 


.38982718 


VB 


GROUP VELOCITY C PMPtlTFD 

VA - .7J.016 68*C*3l6E+00 . 22 *2 65 63 565*2 E-01 

APG - . 1 7 3 51 1 97E + 02 

XLFNC - .521 712*51 -03 ®<T« 86.788188 PHI* 

N FA^TP® AT STATEN 8 Y/C » ,0122222 IS N - *.501 

STATION no 9 PPEVtOUS RADIUS .37551616+05 ORIGINAL REV 
LOCAL “ACM NO. • .p* 3 

STATION NO <3 NEW RADIUS .. 37 55 1 5 9 F+0 5 NEW REY .3*583026+03 
DR- -.1923769E-01 DS- .3795**2E-01 


. 1025089863176 E -05 . * 2623 8 39526 55 E -02 

•* 1757139 * 63126+00 . 1 31 8 67 53 19322 E -01 


32.935956 


• 5 * 5831 2 F +03 


NEW DSTZ 


REREO - 

ORIGINAL DSTZ 
• 3 * 7955 1£ -03 


. 500000006+00 HZ 


. 3 * 795576-03 


o o 

-o <a 

o ^ 

O 5» 

VO P 


NON-OIMENSTHNAL FPEOUENCY at THIS STATION IS FREQ- * 111 25362109522-05 


MAIN OPTIMIZER LOOP, NUMP- 1 

ALPHA- —.22156532 BETA- 

GPOUP VELOCITY COMPUTED 

VA • . 70867793611 *CE +00 


.* 135706 * * OMEGA- 

. 25021651355806-01 VB - 


-. 63650 8 * 9360 * 7 E — 05 .* 2781387072106-02 

. 39008 8 2 582 773 E +00 . 137 * 1 * 15693 * 56-01 


MAIN OPTIMIZER LCOP, NUMR- 2 

ALPHA- -. 221376*7 BETA- 

GROUP VELOCITY COMPUTED 

VA • .'*O 061726 * 1 * 67 E+OO 


.* 132*673 

• 2 50 *** 7*63262 E -01 


OMEGA- . 1 1208906 * 7 * 3 * E -0 5 . * 278 3679 50975 E -02 

VB - . 390072092810 * 6+00 . 137 P 37 * 69 * 267 E -01 
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MAIN OPTIHIZEP LOOP, NUMB ■ 3 

ALPHA- -•221361 1 9 *ETA- .41321895 OMEGA- .11134872069626-05 « 42 70 364281 2 58 E-02 

GROUP VELOCITY CPMDijTFO 

VA - .70B6136725043F+00 .2504792407*546-01 VB - •39007147372198+00 .1378631675093E-C1 

APG - • 1 5 20091 5E + 02 

XLFNC • .58297185F-03 PS!* 97.077578 PHI* 31.100183 RFREO - . 50000000E+00 HZ 

N FACTO® at STATION 9 X/C - *0163775 IS N - 3.119 

STATION NO 1C P'fVIOUS RADIUS .3755159E+05 ORIGINAL REY .6517617E+03 ORIGINAL OSTZ .40498918-03 

LOCAL *ACH N*n # , .923 

STATION NO 1C NEW PAOIUS .3755I57F+05 NEW REY .6517604E+03 NEW OSTZ .40488838-03 

DP- — • 1 98 507 3f -0 1 ns- .41164018-01 


NON-DIMENSIONAL FR800FNCY AT THIS STATION IS FREO- . 122 2 1 1 27 57144E-05 


MAIN OPTIMIZFR LOOP# NU*B- 1 

ALPHA* -.22194855 BETA* .43649941 OMEGA- 60987 1991 5300E-0 5 *4403092e34660E-02 

GPOU*» VELOCITY COMPUTED 

VA • .7061236907073F+00 .28570380751506-01 VB • .3683044729454E+00 . 14 882 1 31 841 92 E-01 


MAIN OPTIMIZER LOOP# NUMB- 2 

ALPHA- -.22181549 BETA- .43626419 OMEGA- .12285197098098-05 .44033646438346-02 

GROUP VFLOCITY COMPUTED 

VA - .706075024440CE+00 • 2 858 36961 6136E-01 VB ■ .36829044848618+00 . 1 49072 1 81 3609E-01 

i 


MAIN -OPTIMIZER LOOP# NUMB- 3 

ALPHA- -.221 8C(j62 BETA- .43623565 OMEGA- . 12230483174058-05 . 4403361191117E-02 


G\ 

-O 


ORIGINAL PAGE □' 
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GROUP VELOCITY COMPUTED 

VA ■ .7C6071*511296F+00 • 20 58 7491 31026E-0 1 

APG • *136 5666 9E + 02 

XLFNC*- *649702 40F-03 P$I- 87.289992 

N FACTrp at STATION 10 X/C « .0211690 IS N > 

?:*:«•!"•: „„ U PPrvn,K •’At'IUS .3755157F+05 ORIGINAL REY 
LOCAL M A C w NO* * .075 

S Jf TTrK Nn 11 NFV PAOIUS .3755155E+05 NEW REY .77432736+03 
DR« -. 2062C90F -C1 TS- • 44 5 fl 9*9F-01 


VB 

PHI * 
.713 


36828980307 80E +00 • 149 11 569*4490 E-01 


29 • 660 5 A 2 

. 7743292E +03 
NEW DSTZ 


RFREO - 

ORIGINAL OSTZ 
•4727007E-03 


.500000006+00 HZ 


.*7270106-03 


NON-DIMENSIONAL PP60PENCY AT TH T S STATION IS FREQ- . 136 2*976 37601 E-05 


MAIN OPTIMIZER LOOP, Nt»MR. X 
AL °H A» — • 226070*7 BETA*. 


.*6353087 


GPCUP VELOCITY CP M PUTFn 

VA - . ^0302568 5«308E+00 • 3 3 5 8 506066203 E-01 


MAIN OPTIMIZER LOOP, NU«p. 


ALPHA- 


— * 2 2 5992 1 8 BETA- 


.463*0*1* 


OMEGA- 
VR • 

OMEGA- 


-.917698139*8296-05 • *687003*61 22* E-02 

•3511681378758E+00 .167665405*5*86-01 


GROUP VELOCITY crMptmn 

VA - .7C2981AQ2881PE+00 . 3 3 5762 840*8 3*E-0 1 V VB ■ 

APC - • 1 2619*1 2F *02 

XLFNC * .7200P757E-03 p Sr- 07.459416 PHI- 

LtM$j*SH!«nnustn<u$!mnmffu<ssu$mL$sui 

N FACTOR AT STATION n X /C . .02*6023 IS N . 6.299 

lJcIPhaCM Nnl 2 . i!c 57 0L " ° A ° Il ' S * 3755155ft05 ORIGINAL RFY 

STATION NP 12 NEV PAPIUS . 3 7 55 15 1 F +0 5 NEW REY .10289676+04 

DP« -. 4499958F-01 DS* .1006999F+G0 


•13659105P2958E-05 .46874942684916-02 


.35115273035996+00 

20.537903 RFRFQ 


1676916388*006-01 

.500000006+00 


HZ 


• 102 8970E + 0* 


NFW OSTZ 


ORIGINAL DSTZ 
•61595B1F-03 


.61595996-03 


oo 

TO 
*5 O 

O Z 
o 5 * 

30 r- 

o -o 

C 3» 

> Q 

r; m 

3 o 


NON-PI MFNSIONAL 1 : 0 FOlJP NC Y AT THIS STATION IS FREQ* 


1659339731123E-05 
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MAIN OPTIMIZE* tOOP, NUMB- 1 

ALPHA* -.23*45237 BETA- .50951512 ^IMEGA- -• 2363174120974E-04 • 500916371 39436-02 

GROUP VELOCITY COMPUTED 

VA • .7032583715586E+00 . 4194393528732E-01 VB ■ .3302948641632E+00 .1970167775791E-01 


MAIN OPTIMIZER LOOP, NUMP- 2 

ALPHA- -.23444061 PETA- .50956666 OMEGA- • 16572 50023 549E-05 .50106736058186-02 


GROUP VELOCITY COMPUTED 

VA - .7031050316571 E+00 . 4 1 P6 501 265940E-01 VB - 

APG - .104700166+02 

XLENC « .P6247621F-03 PSI- 87.763773 PHI- 

N FACTOR at STATION 12 X/C ■ .0304226 IS N - 7.461 

«*<***? <5 ffStf'St If 


.33026778017826+00 . 1 96557006524 5 E-01 

26.942193 RFPEO • .500000006+00 HZ 


STATION NO 13 PREVIOUS »ADTUS .37551516+05 ORIGINAL REY .13030326+04 ORIGINAL DSTZ .77457996-03 
LOCAL MACH NO. • 1.105 

STATION NO 13 NFw RADIUS .3755146E+05 N 6 W R 6 Y .1303027E + 04 NEW DSTZ .7745771E-03 
OR- -.40667316-01 OS- .11683326+00 


NON-DIMENSIONAL FREQUENCY AT THIS STATION IS FREO- .20140729399256-05 


MAIN 0PTTMI76P LOOP, NUMB- 1 

ALPHA- -.25199339 BETA- .55799972 

GROUP VELOCITY COMPUTED 

VA - .71140415108046+00 .51510353471716-01 


OMEGA- -• 267461 06 8 201 9 E-04 .48579643572836-02 

VB - .32596774365116+00 .23615040536746-01 


MAIN OPTIMIZE* LOOP, NUMB- 2 
ALPHA- -.25209CP4 BETA- 


.55832029 


OMEGA- .20060138573726-05 .48600615761956-02 


ORIGINAL w 
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GROUP VELOCITY COMPUTED 

VA • .71135756093126+00 . 5 1 3631 98 1 4036E-0 1 VB ■ .3259420413363E+00 . 2 35 262 5407878 6-0 1 

APT, - .801874566+01 

YLENC • . <50306762^-03 P$I« 98* 169123 PHI ■ 26.131437 RFREO ■ .500000006+00 HZ 

H FACTOR AT STATION 13 X/C - .0549125 IS N ■ 8.541 

SSSSSM1 ISttlttVifSS <«<*$** 

STATION NO 14 PREVIOUS RADIUS .3755146F+05 ORIGINAL REY .1765303F+04 ORIGINAL DSTZ .10474856-02 

LOCAL MACH NO. • 1.121 

STATION NO 14 NEW RADIUS . 3 7 55 1 3 76 +0 5 NEW REY .1765294E+04 NEW DSTZ .10474806-02 

DR- -.86811336-01 PS- . 20940576*00 


NON-DIMgNSIONAL FREQUENCY AT THIS STATION IS FREQ* .26912917306866-05 


MAIN OPTIMIZE* LUO*, NUMB- 1 

ALPHA- -.31495850 BETA- .68453501 OMEGA- -. 164105 344451 8 E-03 .40054242864206-02 

GROUP VELOCITY COMPUTED 

VA ■ .7334940873 1 OPE *00 • 65 38 28 4671903 E-Ol VB ■ • 337894 19600846+00 .30081236121926-01 


MAIN OPTIMIZE* LOOP# Nl'M9- 2 

ALPHA- -.31398221 RETA- .68290934 OMEGA- . 261 556201 202 3E-0 5 .40202855570966-02 

GROUP VELOCITY C^mouTED 

VA * .T3299177C6124E+00 • 65070 1 797 9747E-01 VB - .33771315503336+00 .2993036863926E-01 


MAIN OPTIMIZER LOOP. NUMB- 3 

ALPHA- -.3)398114 BETA- .68290723 OMEGA- .26913194953036-05 .40202923351826-0 2 

GROUP VELOCITY COmpuTFD 

VA - .732991441 20 79 £+00 .65070330757606-01 VB - .33771305506126+00 .29930470630436-01 


) 


ORIGINAL PAGE 12 
OF POOR QUALITY 
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MAI N OPTIMIZER LOP®, NUMB* 4 

ALPHA* -.31221589 BETA* .67907584 OMEGA* • 25 871646984 80E-05 .402020405 8688E-02 

GROUP VELOCITY COMPUTED 

VA • .73271 0022078 3E+ 00 . 658875 8322319E-01 VB ■ . 3376635709B97F+00 .3040586258637E-01 


MAIN OPTIMIZE® LOOP# Nt-B* 5 

ALPHA* -.31302672 BETA* .68083560 OMEGA* . 26361 70095 9 30 E-0 5 .40202 8e506276E-02 

GROUP VELOCITY COMPUTFO 

VA • .73283962773 ROE *00 . 65 51 2 34523742 E-0 1 VB • .3376864 7889 08E ♦ 00 .301875 87259 35 E-01 


MAIN OPTIMIZE® LOOP. NUMB* 6 


ALPHA* -.31302737 BETA* .68083718 


OMEGA* .2691271769006E-05 .402 02 93469636E-02 


GROUP VELOCITY C0MOIJTF0 

VA ■ .732P396151126E+00 • 6 551 1 791 13 5 18E-01 V9 * • 3 3768644569 1 1 F+ 00 .301 8727534960E-0 1* 

A®G * .47565597F+01 

YLENC • .109784B8F-02 PSI- 88.830130 PHT* 25.86X172 PFREO - . 50000000E+00 

t * S « « M $ 5 « * « 4 1 * t * « * t *5 f 4 « t S < * 1 1 1 1 1 1 3 « * M ♦ S $ $ J * M 1 1 * 1 1 $ 

N FACTOR AT STATION 14 x/c ■ .0*31790 1$ N « 9.873 

STATION NO 15 PPFVIPU* RAOTUS .3755137F+05 ORIGINAL REY .2184070E+04 ORIGINAL DSTZ .1296816E-02 

LOCAL MACH NP. * 1.115 ‘ - 

STATTPN no 15 NfU RAOTUS .3755127E+05 NFW REY .2184057E+04 NEW DSTZ .1296808E-02 

OP* 103P*5 SF+OO OS* .2482361F + 00 


HZ 


NON-OIMENSIONAL FR EOU'FNC Y AT THIS STATION IS FREQ* . 3 34 71975 79777E-05 


MAIN OPTIMIZER LOOP, NUMB* l 
ALPHA* -.36878105 PETA* 
GROUP VELOCITY COMPUTED 


.78122205 


OMEGA* -. 7485768166168E-04 • 262447167 84 12E-02 




ORIGINAL PAGE E3 
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VA - .75836*10583308+00 . 61 7795 117693 IE-01 


V8 ■ .35661373879736+00 .2896658503526E-01 


MAIN OPTIMIZER LOOP, NUMB • 2 

ALPHA- -.36590167 RETA- 


.77550953 


CROUP VELOCITY COMPUTED 

VA » .757B*8?65*531E+00 .62697*2115289E-01 


MAIM OPTIMIZER LOOP, NUMB- 


ALPHA- 


-.36516051 BETA- 


.77376222 


OMEGA- 


V8 


OMEGA- 


PHI • 


.31 1631 71 51 995 E-05 . 263111 22 56890E-02 

•356*58777*53*E+00 .29*70*052753 3E-01 


.33395*883159*6-05 .2631123*339055-02 


GROUP VELOCITY COMPUTED 

VA • . 75771 929501 80E+00 . 63 0951 63099 36E-01 

APG • .2*22 9Q31E+C1 

YLENC • . ! 1 Q039Q6F-02 PSI- 89.300221 

H PACTOP AT STATION 15 */C ■ .1171658 IS N - 10.76* 

s$sfS5<u5UMtft($um{tnuu$t$sssu$msnmmn 

STATION NO 16 PREVIOUS RADIUS .3755127E+05 ORIGINAL REY 
LOCAL Mach no. * 1.106 

STATION NO 16 NEW RADIUS .375511*6+05 NEW REY .25*5*27E+0* 
DR- 121 5782F* 00 PS- .2856223E+00 


V3 - .356*227121281E+00 .296865787139*6-01 


25.96*117 


.25*5**78+0* 


NEW DSTZ 


PFPEO - 

ORIGINAL DSTZ 
.15129066-02 


• 5 OOOOOOOE+OO HZ 


• 1 5 12 9 1 8 E-Q2 


o o 

-n 50 

”0 CJ 
o 2 

O > 
50 r* 

O ^ 

c > 

> S 

r n 

3a 


NON-DIMENSIONAL FREQUENCY AT THIS STATION is FREQ- . 3<>3071 62 *36906-0 5 


MAIN OPTIMIZER 10 n P * N|JM8- 1 

ALPHA- -.38311052 BETA* .80706*91 

GROUP VELOCITY COMPUTED 

VA - .7767*762300*16+00 .61*2*9655*5508-01 


OMEGA- — .2405873090089E-05 .1*76155*151586-02 

VB - .3722523 90 0821F+00 .29*19565659**8-01 


M 4IN OPTI MI ZFP LOOP, NUMB- 


2 
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ZH 00+300000005* 


OBddd 
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Z1S0 A3N VO + 3 29 VOS 82 * ABdhBN SO+BIOXSSAE* SlllOVd *3N AX cHNUliVlS 
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NON-OlNfNSIONAl FREQUENCY At THIS STATION IS FREQ* . AA890946 33P30E-03 


MAIN OPTIMIZER LOOP, MUMP- 1 
ALPHA- —•A 12867?? BETA- 


» 8 396 263 A 


GROUP VELOCITY COMPUTFD 

VA - .7998727828430E+00 . 6 8809*7563063 E-01 


OMEGA- . 441 8737863 171E-05 .22999152809106-03 

VB « .39215728688236+00 • 3 3 76859998005E-01 


MAIN optimizes mnp, NIIMR. 


ALPHA- 


-.4123*724 BETA- 


.83880774 


OMEGA- 


VB 


PHT- 


GROUP VFlOCTTr COMPETED 

VA ■ . 799P2 t 3533760F+00 . 69 1 505 3701 3 396-01 

A*0 - .13P63535F+C0 

YLENC - .l R 6AA95?r-32 »SI- 89 • 8273 5 1 

N FACTOF AT STATION lfl Y/C - .2477751 IS N - 11,634 

lJcIl^ACH in! 0 . RAPt " S * 3755095 E + 05 ORIGINAL *EY 

s o T R A : in !.:T 3 „^c +C o FW r^ Ius . 37 ^j^^r 05 new rev * 33721 7op+oa 


,48937760106876-05 • 22993325890006-03 

• 3921 3 90926055 E + 00 .339024932679QE-01 

26.352824 PFPEO • . 50000000E ♦00 HZ 


.33722176+04 
NEW OS T Z 


NON-DIMENSIONAL FREQUENCY AT THIS STATION IS f R EQ- . 5? 9097 83 16 786E-05 


ORIGINAL OS T Z 
• 2 0095 11 E-OH 


• 2009539E-02 


ss 

si 

s? 

O T3 
C > 
> O 

r; rfl 

—4 

5 <fi 


main optimizer lo:jp, m»MP« i 

ALPHA- -,43:-ft9A40 BETA- 


.87829333 


GP CUP VELOCITY COMPUTED 

VA - . 8t:8837C758707F+00 • 81 71 1 72762463E-01 


OMEGA- 
VB • 


.10904220204226-05 11798 30376242E-03 

• 39948 65047039E +00 .4034 859120320E-01 


main optimizer lo:'p, niimr- 


2 



ALPHA* 


*3386117 8 FT A • 


87621191 


OMEGA* 


53090981066 *0E— 05 -. 1175523 831 3 76E-03 


^ 30 


GROUP VELOCITY COMPUTED 

VA - .8C8P0C7577172F+00 . 82 2171 65A6610E-01 V8 • ♦ 399*7772 01 75 3E *00 .*0606** 83 82 71 E-01 

l*$ STA«LE REGION EN COUNTF PE 0— IC ON ■ 1 WAS SELFCTEO PROGRAM CONTINUES*** 

NON-DIMENSIONAL FRFOUENCY AT THIS STATION IS FREO- . 57219*30*1057E-05 

NO UNSTABtF MOCE FOUND IN GLOBAL CALCULATION. THE LEAST STABLE MODE WILL BE 
USED IN SUBS F OUE NT mCAL EIGENVALUE SEARCH. THIS IS I 

.1224006927691F-02 *0100*71 27179E-03 

ALPHA* -.*1600708 BETA* .83701838 OMEGA - . 12* 2 96 108 3978E-02 *2*59277* 8692E-03 

IBECIN -1 FAILED TO FIND ACCURATE UNSTABLE MODE OF WAVE NUMBER WAVE* .93*699 X/C • .352281AT STATION 20 

PROCEEDING TO NeXT STATION 

NON-DIMENSIONAL FPEOUFNCY AT THIS STATION IS FREO* . 6 1801 396 5302 5E-05 

NO UNSTABLE *r>DE FOUND IN GLOBAL CALCULATION. THE LEAST STABLE MODE WILL BE 
US FD IN SUBSEQUENT LOCAL EIGENVALUE SEARCH. THIS IS * 

•6277*37661 096 F -03 7*901 07091 52 BE-03 

ALPHA- -.*1882C36 B F T A ■ .83561*25 OMEGA - . 6519 357601 405E-03 -.77*532610*3835-03 

IBEPIN -1 FAILED TP FIND ACCUPATE UNSTABLE MODE OF WAVE NUMBER WAVE- .93*699 X/C • .*0762lAT STATION 21 

PROCEEDING TO NF XT STATION 

NON-DIMENSIONAL FREQUENCY AT THIS STATION IS FREQ- . 6775299999655E-05 


ALPHA 


*22890*7 BETA- 


03355726 


OMEGA - 


5 8009 02 905 6* 8 E-02 . 17016662C5325E-03 


POOR QUALITY 
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STATION NO 23 PREVIOUS RADIUS . 3755069E+0 5 ORIGINAL REY .4374243E+04 ORIGINAL OSTZ .2623657E-02 

LOCAL MACH NO. - 1.C47 

STATION NO 23 NFV RADIUS .3755056E+05 NEW REY .4374175E+04 NEW DSTZ .2623616E-02 

DR- -.1273992E+00 f)S- .2784932E+00 


NON-DINFNSIONAL FREQUENCY AT THIS STATION IS FREO- . 71271798 9361 IE-05 


MAIN OPTIMIZER LOOP, NUMP- 1 

AlPHA- -.37241344 RETA- •70497808 

GPCUP VFLOCITY COMPUTED 

VA • .5681 7 942204 04 E+00 -. 5414784529816 E-01 


MAIN OPTIMIZER LOOP# NUMB- 2 

ALPHA- -.3722P568 BETA- .70473347 

GROUP VFtnCITY COMPUTED 

VA « • 568H 908P372PF+00 541 8 4901 03 223E-01 

AFG - •8 < >630961E+00 

XLFNC ■ • ? 5 #5 34 69F-02 PSI- 90.713247 


OMEGA- .72012770 69 67 BE— 05 • 15 076712091 25E-02 

VR - .2970502847518E+00 -. 2831 1 8503 996 7E-01 

OMEGA- .7128023356953E-05 . 1 5076693 916 70E-02 

.2970435058041 E +00 -. 28 3281 6270467 E-01' 

27.132485 RFREO - . 50000000E +00 HZ 

.2602263E-02 


VB - 
PHI- 

N FACTO® AT STATION ?3 V/C • .5017737 IS N - .255 

STATION NO 24 PPrviOUS RADIUS .3755056E+05 ORIGINAL REY .4333211E+04 ORIGINAL OSTZ 

LOCAL MACH NO. - 1.040 

STATION NH 24 NFW RADIUS .3755043F+05 NEW REY .4333137E+04 NEW DSTZ .2602218E-02 

CR- -.12O1116F+C0 DS- .2786739F+00 


o o 

-n 2 

TJ P 

O 2 
O IE* 

•x> P 

«o 3 

c £* 

? % 
3 ® 


NON-DIMENSIONAL FREQUENCY AT THIS STATION IS FREQ- . 710405 8942383E-05 


-■J 


main OPTIMIZER loop# NUMB ■ 1 

ALPHA- — • 3 762 54 60 BETA- .71007652 OMEGA- . 720 53 529742 55 E-05 • 1 6471 68424 501E-02 

GROUP VELOCITY COfPUTFD 
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STATION NO 26 PREVIOUS PAOIUS .3755031E+05 ORIGINAL REV . 411 38 2 5E+04* ORIGINAL OSTZ 

LOCAL MACH NO. . 1.C2? 

STATION NO 26 NFW RADIUS .375501RE+05 NEW RE Y .4113740E+04 NEW OSTZ .2478724E-02 

OR- -.1272790F+00 OS- .27287096*00 


•24 78775E-02 


NON-DIMENSIONAL FR EOUENCY AT THIS STATION IS FREO- . 685 23 940 41 8 31 E-05 


MAIN OPTIMIZER L OOP# NUMB- 1 

AL^HA- - • 309231 67 BETA- *57027420 OMEGA- . 39233 3797056 B E-04 . 1 5773741 1 6372E-02 

GROUP VELOCITY COMPUTED 

VA • .509669CO4O591E+OO 309305 8006873 E-01 VB - • 3161 5 3254 2617E +00 -.165683 3301431 E-01 


MAIN OPTIMIZER LOOP. NUMB- 2 

ALPHA- -•30970C15 BETA- .57104556 OMEGA- . 6861 8692 83 846E-05 • 1 5791 00674042 E-02 

GROUP VELOCITY COMPUTFD 

VA ■ • 5895659327353E+00 -• 30623 37379565 E-01 VB ■ • 3 1609967061 20F+00 -• 1 642 8260 573 10E-01 

APG - .95231754F+00 

YLFNC - .29967996E-0? PST- 90. 932089 PHI- 27.540433 RFREO • . 5 OOOOOOOE *00 HZ 

N FACTOR AT STATION rj 26 v/C - .6135035 IS N . 1.003 

STATION NO 27 PREVIOUS RADIUS .375501PE+05 ORIGINAL REY .3928852E+04 ORIGINAL OSTZ .2375638E-02 
LOCAL MACH NO, - 1 , C 1 0 

STATION NO 27 NEW RADIUS • 3 7 5500 5 E +05 NEW REY • 392 8764 E + 04 NEW OSTZ .2375585E-02 

DR- -. 1268526F + 00 OS- .2664592F+00 


O Q 

-n g 

"V Q 

O 2 

O y? 

S3 P 

O -o 


c 


>? 

q 


& 


NON- DIMENSIONAL FP EOUF NC Y AT THIS STATION IS FREO- . 66 4791 24 59494E-05 


MAIN OPTIMIZER LOOP, NUMB- 1 
ALPHA- -.28957665 BETA- 

GROUP VELOCITY CLOUTED 


.51974340 


OMEGA- .2028411 666300 E-04 . 1 860522048887E-02 
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VA • . 569C451887155E+00 -• 2446429506143E-01 


VB 


. 31281741 41 174 E *00 -. 1 341 5 89558161 E-01 


MAIN OPTIMIZER LOOP# numb- 2 
ALPHA- -.2*026781 BETA- 


.52095710 


GR PUB VELOCITY CO^PUTEO 

VA • .S69032C594124E+0C -.242C005352236E-01 


PMPGA. .66723 3430642 2E-05 .19611 89247990E-02 

VB • .3128222972326F+00 1330826006465E-01 


MAIN OPTIMIZER LOOP# NUMB- 


ALPHA- 


-.2*016786 BETA- 


.52081160 


VB 

PHI- 


GROUP VELOCIIY COMPUTET 

VA • .5690261 5 54321 f+00 -« 2 4 22 4 199Q53 56^-01 

APG - .12065 47 5E+01 

XLFNC - *? 1 2^94 542 F-02 P$t* 91.297839 

N F AC TC?p AT ?T A T I n N 27 y/Q . .6494943 IS N - 1.293 

LCCAL^ACH N0 ?? . PP qQ? n " S SADIUS -3755005E+05 ORIGINAL REY 

S JrI 10 ! ri nU,S •3 7 54992F+05 NEW REY .3676265F+04 

DR- 1268047E+00 DS- .26322126+00 


0HEGA * .6646010085664E-05 .18611817705456-02 

« 312 81 747734 65E+00 -.1331751198269E-01 


27.827840 


• 36763 54E + 04 


NEW 0ST2 


RFPEO - 

ORIGINAL DSTZ 
.22329546-02 


. 50000000E +00 HZ 


• 2233008E-02 


o Q 

-n as 

*o 5 

O s 

O 33 

sj r 

<0 13 

c s 

r; f-i 

—■4 ta-a 

2 ca 


NON-DIMENSIONAL FREQUENCY AT THIS STATION IS FREO. .6340447958U6E-05 


NAIN 0PTI>*I2ER LOOP, NUMB- 1 

ALPHA- -.28164223 BETA- .49354608 

GROUP VELOCITY COMPUTED 

VA • . 5 6 75 5 31 21 2868 f +00 -.1933229717527E-01 


OMEGA- . 1048247755078E-04 .2174478929513E-02 

VB - .3205423022464E+00 1087258414924E-01 


MAIN 0PTIMI2EP LOOP, NUMA. ? 
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ALPHA- -.283*1048 BETA- .49490936 OMEGA- . 637971 5058244 E-05 . 2 1747290102 33E-02 

GROUP VELOCITY COMPUTED 

VA - .56756618709676*00 191002 0346296E-01 VB « • 3 20 5699722 844 E*00 -.107 885 83 020808-01 


MAIN OPTIMIZER LOOP, Nil MB - " 3 

ALPHA- -.26341124 »ETA- .49*09463 OMEGA- . 63401 7 5034 900E-05 . 21 747294 9 3665E-02 

GROUP VELOCITY COMPUTED 

VA • . 567565725249*6*00 -. 19 102365651 8 1 E-Ol VB • . 3205 69480 20 63 E +00 -. 1 0789 3 194 9 3 1 IE-01 

ARC - « 1 4941 1 59 & *01 

YLFNC • .307514516-0? p S I » 91.624809 PHI- 28.173485 P FREQ - .50000000E*00 HZ 

N PACTCP AT STATION 28 X/C - .6845321 IS N - 1.640 

STATION ND ? 9 PREVIOUS p APIUS .37549926*05 ORIGINAL PEY .33877456*04 ORIGINAL DSTZ .2070488E-02 

LOCAL MAC* Nn. . .971 

STATION NO ?9 NEW RADIUS .3 7 5490OE*O5 NEW REY .33076586*04 NEW DST7 .2070435E-02 

OP- -* 1263501F+C0 OS- .25691966*00 


NON-OIMENSIONAL FP ECU T NC Y AT this STATION is FREQ- .5988373962540E-05 


MAIN OPTIMIZER LOOP, NUMB- 1 

ALPHA- -.27200463 BETA- .46005673 OMEGA- • 1 5406008 343 1 9E-04 • 2341477620202 E-02 

GROUP VELOCITY COMPUTED 

VA • • 5701X350051856*00 -•11115075362246-01 VB - .33225058221 39E+00 -. 63901 31248089E-02 


MAIN 0PTIMI7FR LOOP# NUMB ■ 2 

ALPHA- -.27326460 BETA- .46219040 OMEGA- . 608 5502109364E-0 5 • 234188502625 3E-02 

GP CU D VELOCITY COMPUTED 

VA • .570089P767210E+00 -.10754999563406-01 VB • .33227760165176+00 -.6270644678998E-02 


CO 


OF POOR QUALITY 
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VB 

PHI- 


GROUP VFtOCTTY COMPUTED 

VA • .5772077527280F+00 -. 1 7031 38333673F-0 2 

APG - .19434067E+01 

UFNC. • .2Q4R5740F-02 P$T- 92.326117 

n cactop at cTATrnN 30 x/c - .75109*8 is n - 2.505 

STATIpv Mr 31 ppfvnus RADIUS .3754967F+05 ORIGINAL PRY 
LOCAL *ACH N P* - .ci*, 

STATION NO 31 NEW RADIUS .3754955F+05 NEW REY .2752653E+04 
DP- —.12511976 +00 PS- .2420391E+00 


3485706296846E+00 -.102 860 3100271 6-02 


29.155091 


RFREO 


* 500000006*00 HZ 


•27527336+04 ORIGINAL OSTZ .1715035E-02 


NEW DST? . 171 49B5E-02 


NON-OIHENSinNAL FPFOHFNCY AT THIS STATION IS FPEO- . 5 21 339 5294361 E-05 


HAIN OPTIMIZE® LOOP# NUMB- 1 

ALPHA- -.25191517 BETA- 

GROUP VELOCITY CrMPUTEO 

VA - .585375333327PE+00 


.39527064 OMEGA- . 1957740290672E-04 . 226368 104 5B11E-02 

•7164250378662E-02 VB « • 36 80171 826 1 37E+00 • 46481 1 3 577995E-02 


MAIN OPTIMIZER LOOP# NUMB- 2 

ALPHA- -.25353535 BETA- 

GPCUP VELOCITY CPMPUfEO 

VA • . 58502664C6172F+00 


*39781054 OMEGA- . 541 5 82 9349521 E-05 • 2263 86 8663 129E-02 

• 7535105207132E-02 VB - .3680005 583335E+00 . 4736047113268F-02 


00 

U> 


MAIN OPTIMIZER LOOP# NUMB- 3 

ALPHA- -.25349419 BFTA* .39774456 

GROU° VELOCITY COMPUTED 

VA • .58502886478866+00 . 7 5274 1 5103770E-02 

*PG - • 19099 567E +01 

XLENC • .2855 774CF-02 PSI- 92.681031 


OMEGA- .52107951 25804 E-05 .2263 9 8 12 8 6004 E-02 

VB - .36799997993206+00 .4734 85 3656 164E-02 

PH * m 29.829346 RFREO - .500000006+00 HZ 


ORKSiNAL PAGI S3 
OF POOR QUALITY 
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N PACTPP AT STATION 31 X/ C - .7023378 1$ N • 2.959 

STATION NO 32 PREVIOUS RAOIUS .3754955E+05 ORIGINAL REY .24998246+04 ORIGINAL DSTZ 

LOCAL MACH NO. * .879 

STATION NO 32 NEW PAOIUS .3754942P+05 NEW REY .2499747E+04 NEW OSTZ .15R1652E-02 

DR- -.12454266+00 OS* . 2 3 39006 F +00 


.1581701E-02 


NON- DIMENSIONAL FREQUENCY AT THIS STATION IS FREO- . 4979 507990704E-0 5 


MAIN OPTIMIZER LOOP # NUMB- 1 

ALPHA* -.24300^03 PETA- 

GROUP VELOCTTy COMPUTED 

VA • .583726096325*F+OO 


° 36972172 OMEGA- . 141 6792 49591 9 E-04 *227425201 1877E-02 

• 16 312172401 59F-0X VB - • 3 86652 2 132988 E ♦ CO .1 0 924 24 56 7747E-01 


MAIN OPTIMIZE* LOOP# NUMB- 2 

ALPHA* -.24922208 RETA* 

GROUP VELOCITY CP“PUTEO 

VA • .53357118689346+00 


.37152929 OMEGA- . 51 3 3 8 5 1 0 69106 E-05 . 2274260543573 E-02 

. 1654866765706E-01 VB • . 38 661 79260746E + 00 . 1 09608 5099341 E-01 


MAIN OPTIMIZER LOOP# NU M R • 3 


ALPHA* -.24919647 RETA* 


.37148903 


OMEGA- . 497650 5407990E-05 . 22 7425 2664 3 12E-02 


GPCUP VELOCITY COMPUTED 

VA « .5 *357357009856+00 . 1654463029121E-01 VB ■ 

ARC- - .205407196+01 

*1 FNC - .2776906AF-O2 PST* 93.155886 PHI- 

ns!snm$f$ssuiMsmM5^mnn^m$^$ssm$$u 

N FACTO 0 AT STATION 32 X/C • .0120792 IS N « 3,422 


. 3866X80121 606E+00 .10960773X10346-01 

30,697824 RFREO - • 5 OOOOOOOE +00 HZ 


STATION NO 3? PREVIOUS RADIUS .37549426+05 ORIGINAL REY .2325624E+04 ORIGINAL OSTZ 

LOCAL MACH NO. * . 0 3 <* 

STATION NO 33 NEW PAOIUS .37549306+05 NEW REY .2325548E+04 NEW OSTZ .1505172E-02 

OP- 1249356F +i^0 OS* .22621 34E + 00 


.15052216-02 



NON-DIMENSIONAL frecuency a t this station is FREQ 


A 96 1 7 76 7 44 OE —05 


MAIN OPTIMIZER LOOP, NUMB ■ 1 

ALPHA- -.2543**95 BETA- .35317738 

GROUP VELOCITY COMPUTED 

VA - .5672C20579822E+00 . 2222973591 508 F-01 


OMEGA- . 7093070082 101E-05 . 2565423 900* 85E-02 

VB ■ .4036210957752E+00 . 1 5 875492 14 702 E-01 


MAIN OPTIMIZER IPPP» NUMB- 2 

ALPHA- -.25409666 BETA- .35389120 OMEGA- . 501752491 5 1 53E-05 .2565433226747E-02 

GPOUP VELOCITY COMPUTED 

VA - . 5671252631269E+00 • 22 30 1 73901 3U E-01 VP - • 40360 169 27047E +00 . 1 5871076 703 53 E-01 


MAIN OPTIMIZER LOH*>, NUMB- 3 

ALPHA- —.2 54 89467 BETA- .35388825 OMEGA- . 4960971 1 943 46E-05 • 256 543071 74 56E-02 

GROUP VFLCCITY CO* PUTED 

VA • . 56 71 2 5 ? fl 41 843 F *00 • 22 3016 4005617F-01 VB - • 403601644 3 340E +00 • 15 8 71 22493 64 5E-01 

AEG • . 244B5890 C +01 

XLFNC ■ . ?7105 7 23F-02 PSI- 93.894977 PHI- 31.868879 R F R E 0 « . 5 OOOOOOOE + 00 

N FACTOR AT STATION ?3 */C - .8402 p 19 IS N • 3.932 

STATION NO 34 PPfVTPUS RADIUS .3754930E+05 ORIGINAL REY .2189704E+04 ORIGINAL PSTZ .1461556E-02 

LOCAL MAC w NO. - .782 

STATION NO 34 NEV RADIUS . 3 7 54 <U 7F +0 5 NEW REY .2189629E+04 NEW DSTZ .1461506E-02 

DR- -. 1275564F+00 PS- .2199934E+00 


NOM-DIMFNSION AL FPEOUFfCY AT THIS STATION IS FREO 


509 60341 73784E -05 


OF POOR QUALITY 
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MAIN OPTIMIZE* loop* NUMB- 1 

ALPHA- —*27010355 BETA- .34487647 OMEGA- • 52 8 833 45 87347E-05 . 3 197513006X61 E-02 

GROUP VELOCITY COMPUTED 

VA « .551B517819321B+00 * 2 201 806333364E-01 V8 ■ • 4272493493 704 E +00 • 1 705 60878 3522 E-01 


/ 


MAIN OPTIMIZER LOOP# NUMB- 2 

ALPHA- -*2701931 3 BETA- *34499172 OMEGA- * 5 103 8 1 8996 717E-0 5 • 3 1 9751 81 1 8 769E-02 

GROUP VELOCITY CO"PUTFP 

VA • .55183P4223105E+00 * 2 20273 2731 63 9F-0 1 V3 • *42724616 85 858E+00 . 1 70 527569 1708 E-01 

AfG ■ *3n4fl655E*01 

YLFNC - *2 619466 6F— 02 P5I- 94.735735 PHI- 33.331687 RFREO - . 50000000 E *00 HZ 

N FACTOR AT STATION 34 y/C - .R669769 IS N « 4,546 

STATION no 36 PCFVIOl 1 * PADIUS .3754917F+05 ORIGINAL REY .2030281E+04 ORIGINAL OSTZ .1400830E-02 

LOCAL MACH NO. • # ?36 - 

STATION no 35 NFW PAnruS *3754 90 4E +05 NEW PEY .2030208E+04 NEW DSTZ .1400779E-02 

DR- 131010?F<-C0 PS- *21 4004 X E + 00 


o o 

-n pa 

si 

O ^ 

73 r 

o ^ 
c % 

Q 

r m 


m 


NON-DIMENSIONAL FRFOUEnCY AT THIS station IS FREQ- 


« 5161 86599056 4 E— 05 


MAIN OPTIMIZER LOOP# NUMB - 1 

ALPHA- -*27813298 BETA- 

GROUP VELOCITY COMPUTED 

VA • .5613Q37395890E+00 


» 33237010 OMEGA- 

* 1990ft 4 2? 29902 E-01 V 8 - 


.582 551 9973 963 E-05 . 36 885 37202610E-02 

• 46448 794 73 A 02 E + 00 . 1 650988637870E-01 


MAIN OPTIMIZER LOOP, NUMft- 2 

ALPHA- — *2 "'841968 BETA- . 33271518 

GROUP VELOCITY CP w P!JTcD 

1 


OMEGA* . 5186277816873E-05 . 368835A8A3A69E-02 



V A - .5613623941563E+00 . 19936749 171366-01 


VB - .*6447840457006*00 . 1 6497319319026-01 


•33272551 OMEGA* • 51624 72766195E-05 • 36 885 550091 88 E-02 


• 19937609227236-01 VP ■ .46447811024146*00 *1 64 96952 886 48E-01 

APG - .361408666*01 

XtE^C - . 253580B7E-02 PSI- 95.121927 PHI* 34.800053 

H FACTOR AT STATION 35 X/C • .9921254 IS N • 5.268 

STATION NO 3 1 PREVIOUS RADIUS .37549046*05 ORIGINAL PEY .18559446*04 

LOCAL MACH NO. . .700 

STATION NO 36 NEW RADIUS .3754P9IE+05 NEW RfY .16558746*04 NEW OSTZ 
CP- 12989536*00 OS* .20375946*00 


NON-OIMENSIONAL c P ECU E NC Y AT THIS STATION IS FRED- .50794979 5022 7 E— 05 


RFRFQ * . 5 00000006 ♦OO HZ 

ORIGINAL OSTZ .13179616-02 
.13179126-02 


MAIN OPTIMIZER LOOP# NUMB* 3 

alpha- — « 27842827 RETA- 

C-RCUP VELOCITY CP M R«JT60 

VA » .56135114392566*00 


MAIN OPTIMIZER LOOP t NUMB- 1 

ALPHA- -.27263066 RETA- 

GRCUP VELOCITY COMPUTED 

VA • .58812369491896*00 


.31412585 OMEGA* . 1169464418 13 2E-04 . 365 171992 5605E-02 

• 2005 9654 6 3 92 5 E -01 VB - .504 83325 190326*00 .17335 82960697E-01 


MAIN OPTIMIZER LOnP, NUMB- 2 

ALPHA- -.27353046 BETA- ' 

GROUP VELOCITY COMPUTED 

VA • *58 7992 04666056*00 


.31516101 OMEGA- .51734797691686-05 .36516463464846-02 

.20167136859136-01 VB - .50479827100976+00 . 1731 0602015 81E-01 


MAIN OPTIMIZER LOOP^ NUMB 


3 
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nENC - .2460836AF-02 PSI- <**•572400 PHI- 36.979205 RFREO - . 5 OOOOOOOE *00 HZ 

N FACTOR AT STATION 37 X/C • .<>366028 IS N - 6.6*0 

STATION NO 3f PPFVIOUS RAOIUS .375*8796+05 ORIGINAL REV .1586253E+0* ORIGINAL OSTZ .1176*02E-O2 

LOCAL MACH NO. - ,653 

STATION NO 38 NEV PAOIUS .3754868F+05 NEW REY .15861888+0* NEW OSTZ .1176*3*8-02 

OR- — • 1 0 Q 065 3 F + 00 OS- .16539126*00 


NON-OINFNSIONAL FR60UFMCY AT THIS STATION IS FREO- . * 83 2871909076E-05 


HA I N OPTIHIZER Lnnp, NUMB- l 

ALPHA- -.25077P82 BETA- .278280** OMEGA- . 13759*7*55 1 1 5 E-0* . 2 881*63*96T*8E-02 

GROUP VFLOCTTY COMPUTED 

VA ■ .6315038*622*06+00 . 265299*6 56233E-01 VB - • 5635* *01086368 *00 .23812553339686-01 


MAIN OPTIMIZER LOOP, NUMB- 2 

ALPHA- -.251823*3 BETA- .279*353* OMEGA- . *938288727*37E-05 .28912595619506-02 

GROUP VELOCITY COMPUTED j 

VA • .631*1900195166+00 . 26670081 67573 E-01 VB ■ .563*8577222386+00 .237958930*6628-01 


MAIN OPTIMIZER LOOP, NUMB- 3 

ALPHA- -.25178930 BETA* .27939690 OMEGA- .*8311900998186-05 • 2 88125 219221 * £-02 

GROUP VELOCITY COMPUTED 

VA ■- .631*?350273?2E+00 .266668*2809566-01 VB • . 563*869002* 91 E + 00 . 237976* 837*98E-01 

A p 0 - . 2 89 39 599P +01 

XLENC - .2*5662906-02 PSI- 9*. 255202 PHI- 37.769*39 RFP60 » .500000006+00 HZ 

N FACTOR AT STATION 38 X/C - .9551658 IS N - 7.1*8 

STATION NO 39 PPFVIOUS RADIUS .375A968E+05 ORIGINAL REY .15051566+0* ORIGINAL DSTZ .1135914E-02 
LOCAL MACH NO. - .636 


00 

\£> 
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S If TI0N H ° 39 NfW PADT0S • 37548 58 E ♦OS NEW PEY . 1505093E^ 04 NEW OSTZ .1135867E-02 
OP- -.9346423P-01 OS- . 1403730F>00 


NON-DIMENSIONAL FREQUENCY AT this STATION is FPEO- .47P1820911516E-05 


MAIN OPTIMIZE® LOOP, NUMB- 1 
ALPHA- -.24272888 BETA- 


.26454756 


GROUP VELOCITY rpMOUTED 

VA ■ . 639382281 5288E+00 • 31 7366 3444 194E-01 


OMEGA- • 10657662 30 111 E-0 4 . 2523879381 023E-02 

V8 • .5812079220223E+00 . 2 89603972 0340E-01 


MAIN OPTIMIZE® t r )0P# NUMB- Z 
ALPHA- -.24354832 BETA- 


.26543692 


PMEGA- 


G® PUP VFLOCITY C^mouTED 

VA - .6392485776493E400 • 3 1 83 3042 33029 E-01 VB 


. 4857486790722E-05 • 2523708687422E-02 

•5811 56594434 BE +00 • 2 89370834 893 8 E-01 


MAIN OPTIMIZE® LOOP# NUMR. 


ALPHA- 


-.2*352620 


BETA* 


,26541445 


GROUP VELOCITY COMPUTED 

VA. « •639?*?163l437i£ + co . 3 1 8 3 1 291 00702 E-0 1 VB - 

A p G » .25717514F+01 

XLENC ■ .2 4766431 E-02 PSI- 94,086966 PHI- 

N PACTO® AT STATION 39 X/C « ,9708384 1$ N « 7,532 

STATION NO LQ PREVIOUS PAPIUS .3754858E+05 ORIGINAL PEY 
LOCAL MACH NO. * .621 

STATION NO 40 NFW PAOIUS ' .3754851E+05 NEW ®EY .1450399E+04 
TR» 7590566E-01 OS* .1128399E+00 


° M E GA * .47806524784 90 E— 05 . 25 2 370301 0865 E-02 

.58115 74877177E+00 . 289304992 5 1 96E-01 

38.450231 PFREQ - . 50000000E +00 HZ 


.1450461E+04 


NEW OSTZ 


ORIGINAL OSTZ 
. Ill 2371 E-02 


• 11 12419E-02 


NON-DIMENSIONAL EPECUENCY AT THIS STATION IS FREO- 


4788217110885E-05 
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MAT*, OPTIMIZE® LOOP# NUMB- 1 

ALPHA- -.23795537 BETA- .25*18907 OMEGA- .75801*89239566-05 .2266**16671**6-02 

GROUP VELOCITY COMPUTED 

VA - .6*02825075383E+00 .36787180836656-01 V8 ■ * 59*07566319586*00 . 3A20380125221E-01 


MAIN OPTIMIZED LOOP, NUMB- 2 

ALPHA- -.23846861 BETA ■ .25*73753 

GP PUP VELOCITY COMPUTEO 

VA - .6*01° 27030 60 76 -*00 . 368 391 A20705AE-01 


OMEGA- .A8303A67731A0E-O5 . 22663A 693 AA1 5 6-02 

VB - .59*037 07 69664E+00 .3*181775365286-01 


MAIN OPTIMIZE® LOOP# NUMB- 3 

ALPHA- -.238*5686 BETA- .25*72695 OMEGA- • *7876 5 3*32 5 50 E-0 5 • 22663 A3639630E-02 


GROUP VELOCITY COMPUTED 

VA*- .6*019*1 6A7131E+00 .368385157*0526-01 VB • . 59*03759081 80E 

APG - • 2 33 29 719 F *01 

*LENC - . ? 5038*53 F-0? PSI- 9*. 038383 PHI- 39.072186 

N FACTO® AT STATION *0 X/C - .9*3359? IS N • 7.809 

STATION NO *1 PD F V I n US RADIUS .3754851E+05 ORIGINAL REV .1*70**96+0* 

LOCAL MA C u N n . - .6Cfc 

STATION NO *1 NEW RADIUS • 3 7 5* 8* 5E + 05 NEW REY .1*7038*6+0* NEW DSTZ 

DR- — • 5656A07E-01 OS- .83159616-01 


+00 .3*18253628*3*6-01 

RFPEO • .500000006+00 HZ 

ORIGINAL DSTZ .11A728AE-02 
.11*723*6-02 


NON-DIMENSIONAL FREQUENCY AT THIS STATION IS FREO- .505*60301*35*6-05 


MAIN OPTIMIZER LOOP# NUMB- 1 

ALPHA* -.23313^1* BETA- .23909838 


OMEGA- .92*382268*372E-05 . 1 88373*3*6*38E-02 


VO 
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group velocity computed 

VA - *(> 0*9 7*32108 77 E+OO • 5 715 3*31 508 69 E-01 VP » •58*2373*5607*6 + 00 . 5529*1*0*9901E-01 


"AIN OPTIMIZER LOOP* NUMB- 2 

ALPHA* -.233766*9 BETA* .2397*911 OMEGA* .51327717832766-05 .1883**510*1*56-02 

GROUP VELOCITY COMPUTED 

VA ■ .60*81926*073*6+00 . 5721*77* 815306-01 VP ■ .58*1*7*510*306+00 .5525671637**16-01 


MAIN OPT I M 1 7 6P LOOP, NUMB- 


ALPHA* 


— .23375006 BETA* 


.23973278 


VB 


PHI » 


GPCL'*> velocity computed 

VA * .f)O*P?2^06?9?*6 + OO .572139731830*6-01 

APG - • 1952*362E + 01 

T16NC * * 2 6 0 1 0 109p -02 P$I« 9*. 549622 

N FACTOR AT STATION *1 X/C * .9925170 IS N • 7.907 

STATION NO 4? PPFVIOUS RADIUS .3754P45F+05 ORIGINAL REY 
LOCAL MACu NC. ■ .5 ft * 

STATION NO 42 NFW RADIUS .3754842E+05 NEW REY .1559278E+0* 
OR- -.3612375F-01 PS- .51998596-01 


OMEGA- .50531698175716-05 .1883*359130356-02 

•58*l*9l22*957E+00 .552583*2290706-01 


39.726375 

.15593*7F+0* 
NEW DST7 


RFR60 - 

ORIGINAL DSTZ 
.12*55636-02 


• 50000000E+00 HZ 


.12*56186-02 


NON-DIMENSIONAL FREQUENCY AT THIS STATION IS FREO- .56621088698086-05 


MAIN OPTIMIZER LOOP, NUMB. X 

, ALPHA* -.2:1917319 BETA- .22639237 

GROUP VELOCITY COMPUTED 

VA * . 51047P 52CC018E+00 . 7* 8*1 7 9805 1 30E-01 


OMEGA* .71859099900676-05 • 1 0 3038 09691 1 7E-02 

VB • .535*62*9*76806+00 .787*8526570016-01 
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MAIN nPTlHtZfP l OOP# NUMP • 2 

ALPHA- -.2*032*33 * ETA- .227*9076 OMEGA- 

6P0U° VELOCITY COMPUTFD 

VA ■ .5101227066588E+00 * 7*73 200 521 366E-01 VB ■ 


MAIN OPTIMIZE* LOOP# NMM0- 3 

ALPHA- -.2*0665*1 BFTA- .22781153 OMEGA- 

GRPUP VFLPCITY COMPUTE 0 

VA « .51001961 21702E +00 .7*6995755*9026-01 VB • 


MAIM OPT I m 1 2 E P LOOP# K»"B - * 

ALPHA- -.2*066667 BETA- .22701261 OMEGA- 

GROUP VFLOCTTY COMPUTED 

VA • .5100189*227086+00 . 7*69959 265 293 F-01 VB • 

APO • • 111° 25166 +01 

USNC ■ . ?°520C0P E-02 PSI- 95.061695 PHI- 

N FACTOR AT STATION *2 X/C - .9981*35 IS H « 8.067 


) 


V£> 

U> 
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•593*3690*70516-05 . 1030576016979E-02 

.33522379617506+00 .70*6*365**5006-01 


.572613*8197656-05 .103061**322126-02 

•53515*98307766+00 .783812007*2596-01 

• 566239 3630*516-05 . 1 03060 5309798E-02 

• 5 351 5** 51 2723 E + 00 .7633106 5 8*3606-01 

*0.609609 RFREO • .500000006+00 HZ 
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3. MEAN FLOW PROFILES 

The present version of COSAL accepts three-dimensional 
compressible boundary layer profiles for swept and tapered 
wings as calculated by Program WING. In this program, the 
boundary layer flow is analyzed by invoking conical flow simi- 
larity transformations. This significantly reduces the com- 
plexity of the problem; the analysis, however, is not applicable 
to the regions near the wing root or the wing tip. A brief 
description of the program is given below. 

3 . 1 Program Wing 

Except for a few modifications concerning the output, 
Program WING is essentially the s5me as Program MAIN developed 
by Cebecci and Kaups [7] for calculation of compressible laminar 
boundary layers with suction on swept and tapered wings . WING 
is specifically designed to provide boundary layer profiles 
appropriate for input to the compressible stability analysis 
code COSAL. 

4 * 

The coordinate system (x,0,y) used in Program WING is de- 
picted in Fig. 4. The fundamental assumption employed in the 
analysis is that the wing has a trapezoidal planform and that 
the spanwise pressure gradient is negligible. As a consequence, 
the conical flow similarity transformations can be used which 
enable the governing three-dimensional flow equations to be re- 
duced in a form similar to two-dimensional flow equations. The 

f 

Nomenclature used in WING should not be confused with that 
used in COSAL. 
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or poor quality 

conical flow assumption implies that both the airfoil thick- 
ness distribution and the spanwise wall mass flow rate distri- 
bution are governed by similarity considerations. 

The boundary layer calculations are done along the arc 
formed by the interaction of a sphere of radius x = constant 
and the conical wing surface. It is assumed that the wing 
planform is given in terms of the sweep angles A and A^ for 
the leading and trailing edges, respectively. It is further 
assumed that the non-dimensional wing thickness distribution 
£/c, z/c (see Fig. 5) is specified along a streamwise section 
with chord length c. This chord intersects the sphere at the 
wing leading edge as shown in Fig. 4. The above geometrical 
data is used in WING to calculate the independent variable 0 . 

The conical flow similarity variable n is defined as 



where y is the (dimensional) normal boundary layer coordinate 
and p and y are the density and viscosity, respectively, of air. 
Furthermore, u = -u where u is the velocity component along 
radial coordinate x. The subscript e refers to the boundary 
layer edge values. 

The mass conservation condition is satisfied fcv i r> troducirncr 
a two-component vector potential given as 


96 
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1 

x 


3$ 

30 


+ (p v x) 


w 


where w and v are the velocity components in 0 and y direc- 
tions respectively. The subscript w refers to the wall value. 

The vector potential components ip and $ are represented 
in terms of dimensionless parameters f and g as 

* = x3/2 /p e y e K f(n ' 9) 

$ = x3/2 /p e P e X w e / % 9 (n ' 0) 

where 

>* > 
f = u/u and g = w/w 

6 G 

The introduction of the similarity transformations makes 
the governing equations (see [7]) independent of x and the 
solution can be obtained by marching in 0 direction. The 
Keller's Box method is used to solve the boundary layer equa- 
tions. The details of the method can be found in [7]. 

3 . 2 Computer Resources 

Program WING requires about 75,000 octal words of memory 
and typical execution time is about 15 seconds on CYBER 175. 

3. 3 Input/Output 

The program card for CDC machines reads 

PROGRAM WING (INPUT, OUTPUT , TAPE5=INPUT , TAPE6=OUTPUT , 
TAPE 7) 
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TAPE5 and TAPE6 are input and output units respectively 
while TAPE 7 contains output to be used in stability analysis 
using COSAL. The control cards needed to run WING are: 


(USER INFORMATIONS) 


GET, WING. 

FTN , I=WING , 0PT=2 . 

LDSET , PRESETA=NGINF . 

LGO. 

REWIND, TAPE 7. 

SAVE , TAPE 7=BLDATA . 

EXIT. 

7/8/9 End of record 
Input data 
6/7/8/9 End of file 

The input data to program WING consists of free-stream 
conditions (M^, U B , P^, T^) , Prandtl number (Pr) , boundary- 
layer grid' parameters (n oo /An 1 (=1^) ,K) , total number of stream- 
wise stations (NZT) , leading and trailing edge sweep angles 
A ^ ) r and streamwise chord length (c) . The geometry of 
the wing is specified by tabular values of (?/c) q and (z/c) 


99 
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for a total number of NI points. The pressure distribution 
and suction quantities are specified by inputting the pressure 
coefficients C and dimensionless suction mass flow rate (pv) / 

P w 

(pU)^, as a function of (C/c)^. Note that (£/c) q and are 

not necessarily the same. Upper and lower surfaces are treated 

as separate cases, the dividing-point being taken as the place 

where w g = 0. Note that the (£/c)^ values must be within the 

interval of (£/c) . and (£/c) 

o,min w o,max 

Description of the Input Data 

Card 1 Punched as an 80-column alphanumeric field 

TITLE Description of the case 

Card 2 Punched in II Format 

IWRT A parameter to control output. 

IWRT=3 No extra output (suitable for COS AL) is written, 
either on TAPE 7 or listable output file TAPE 6 . 

(Only the output of original program MAIN is 
written on TAPE 6) . 

IWRT=2 All extra output (to be input to COSAL) are 
written on TAPE7 and output file TAPE6. 

IWRT= 1 All extra output is written on output file TAPE 6 
but is not written on TAPE 7. " 

IWRT=0 All extra output is written on TAPE7 but not on 
listable output file TAPE 6 . 


Card 3 
NI 

NZT 

ETAE 

DETA1 

VGP 


Card 4 
X 
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Punched in 213, 3F10.0 format 

Number of input stations for the streamwise airfoil 
(Maximum NI = 61) 

Number of input stations where C is specified 

ir 

(Maximum NZT =51) 

Estimated value of n max at the first station. 

(Usually less than 0.5, see section 3.4 on how 

to estimate n 

max 

First An-step size, An^ 

Variable grid parameter (K = 1.0 for uniform grid 
in n) 

Note: the variable grid used in WING is a geo- 

metric progression having the property that the 
ratio of lengths of any two adjacent intervals 
is a constant; i.e., An^ = KAri^_^. The distance 
to the j-th line is given by the following for- 
mula: 

n j = At^ (K j - 1)/(K - 1) K > 1 

The total number of points J can be calculated 
by the following formula: 

Jin [1 + (K-l) (n^/Ar^) ] 

Jin K 

Punched in 8F10 . 0 format 

Chord length c (maximum length line) in feet for 
the streamwise airfoil. 

Leading-edge sweep in degrees, X^ 


SWLE 
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SWTE 

CMACH 

UREF 

TPRES 

TT 

Pr 


Card 5 
A 

Card 6 
Y 


Trailing-edge sweep in degrees, X ^ 

Free-stream Mach number. For incompressible flow 
M =0.0 

OO 

Free-stream velocity in feet per second. Input 
only if = 0.0 

Free-stream static pressure, in pounds per square 
feet 

Free-stream static temperature, in degrees Rankine 
Prandtl number 

Note: the following must be observed with respect 

to the sweep angles: tan > tan X 2 > o ; i.e. 

both the leading and trailing edges must have swept- 
back. 

Cards for streamwise airfoil definition in 8F10.0 
format 

C/c-values of the defining airfoil. Total of NI 
points. Note: £/c = 0.0 must be input if calcula- 
tions contain the leading edge. 

Cards for streamwise airfoil definition in 8F10.0 
format 

z/c-values of the defining airfoil. Total of NI 
points. Note: z/c = 0.0 must be input if calcula- 

tions contain the leading edge. 



Note: the streamwise airfoil definition in terms of 

5/c and z/c should be as smooth as possible. The 
point distribution should be denser near the nose 
in order to compute the external velocity distribu- 
tion from the specified pressure distribution. 


Card 7 Cards for input-output locations in 8F10.0 

format. £/c-stations where C and suction 

P 

data is input. Total of NZT points. 

I 

Note: £/c = 0.0 must be input if calculations 

contain the leading edge . 

Card 8 Cards for pressure distribution in 8F10.0 for- 
mat. 

P4 Input C -values. Total of NZT points. 

r 

Card 9 Cards for mass transfer at the wall in 8F10.0 
format . 

BLP Input (pv) w /(pU) oo -values. Total of NZT points. 


Description of Output Data 

1st Line Prints the description of the case 
2nd Line MACHN = Free-stream Mach number 


UFS = Free-stream velocity, in fps 

p 

PFS = Free-stream pressure, in lb/ft 


TFS = Free-stream temperature, in degree R 

PR = Prandtl number 

3rd Line ROFS = Free-stream density, in slugs/ft^ 


103 
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MUFS = Free-stream viscosity, in lb-sec/ft 
REC = Reynolds number based on free-stream 
values and streamwise chord = U c/v 

oo oo 

4th Line CHORD = Streamwise chord in feet 

RADIUS= Radial distance x q in feet from the 
cone tip to the leading edge of the 
defining airfoil (is equal to the 
coordinate x in boundary-layer 
equations) 

LESW = Leading-edge sweep in degrees 
TESW = Trailing-edge sweep in degrees 
5th Line NI = Number of input stations for the 

streamwise airfoil 

NZ = Number of input stations at which 

pressure distribution and mass transfer 
is specified (equals to the number of 
output stations) 

ETAE = Estimate for at the first station 
DETA1 = Specified first Arj-step size 
VGP = Specified variable grid parameter K 
The table STREAMWISE AIRFOIL COORDINATES contain three 
columns under the following headings : 

NI = Point number 

X/C = Streamwise airfoil abscissa (5/c) q 

Z/C = Streamwise airfoil ordinate (z/c) 
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The table STATION DATA contains ten columns under the follow- 
ing headings: 

NZ = Sequence number of output station 

X/C = Streamwise airfoil abscissa, (£/c)^ 

THETA = Boundary- layer coordinate 0 in the de- 
veloped plane, in radians 

S = Surface distance in feet along the x = x 

section measured from the stagnation line. 
CP = Input Cp-value 

CQK = Input (pv) /(pU) -value 

w 00 

UEUFS = Calculated u /U 

e 00 

WEUFS = Calculated w /U 

e 00 

DWEUFS = Calculated 1/U w Q 

00 9 

e 

PEPFS = P /p 

The results from boundary-layer calculations are printed out 
for each station under a heading giving the station number NZ 
and the nondimensional chordwise location (£/c)^. The first 
table gives intermediate results from the iterated solutions 
for f", Af", g” , and Ag" , respectively. Profiles for the con- 

W W W W i 

verged solution are presented in the next table under the follow- 
ing headings : 

J = Point number in the boundary layer 

ETA = The transformed variable n 

F = Boundary- layer variable f 

U = Boundary-layer variable f' 

V = Boundary- layer variable f" 

G = Boundary- layer variable g 
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W = Boundary- layer variable g' 

T = Boundary-layer variable g" 

TEMP-R = Static temperature ratio in the boundary 
layer , T/T^ 

Y-FT = Distance normal to the surface in feet 
Calculated boundary-layer parameters are printed under the 
heading BOUNDARY- LAYER PARAMETERS, where: 


DELSTX 

“ 

6* in feet 

X 



DELSTZ 

= 

5q in feet 



THETAX 

= 

0 in feet 

X 



THETAZ 

= 

0g in feet 



CFX 

= 

cf , local skin-friction 

X 

coefficient 

in 



x-direction 



CFZ 


cfg, local skin-friction 

coefficient 

in 



0-direction 



HX 

= 




HZ 


s e /0 e 




Quantities printed out under the heading FLOW PARAMETERS pertain 
to flow properties at the outer edge of the boundary layer, at 
the wall, and nondimensional mass-transfer parameters. They are 
UE = u in fp's 

e — 

WE = w in fps 

e 

PE = p e in lb/ft 2 

TE = T in deg R 

RHOE = p e in slugs/ft 2 

MUE = y e in lb-sec/ft 2 
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BLP = (pv) w /(pu) e /ir 

SQUIG = (pv) /(pwWw s/v 

w e e e 

TW = T in deg R 

w 3 

RHOW = in slugs/ft^ 

VW. = v in fps 

w r 

CW = (py) w /(pp) e = c w 

Additional outputs printed starting from station number 2 
are (these are generated for use in COSAL and are written on 
Tape 7) : 

NZ = Station number 

NP = Number of points in boundary layer profile 

DESTZ = Boundary layer displacement thickness to 

be used in stability analysis (= compress- 
ible displacement thickness DELSTZ) 

RDSTZ = Local Reynolds number to be used in sta- 
bility analysis. RDSTZ is based on DESTZ 
and local potential velocity in 0 direction, 

W . 
e 

Following this are 10 columns lobeled J, Y, WO, Wl, W2 , 

UO, Ul, U2, TO, Tl, T2. These are: 

J = Point number in the boundary layer 

Y = Distance normal to the surface non-dimen- 

sionalized by DESTZ. 

WO, UO, TO = Velocity component in 0 -direction, velocity 
component in x-direction and temperature, 
respectively. Velocity components are scaled 
with respect to W g and temperature with re- 
spect to T . 
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Wl, Ul, T1 = First derivatives of WO, UO and TO with 
respect to Y. 

W2, U2, T2 = Second derivatives of WO, UO and TO, 
respectively. 


3.4 Sample Run 


Sample output of program WING for the case " YEBZ AIRFOIL 
UPPER SURFACE, SUCTION U244" is given below. This is a 35° 


swept infinite span wing of Pfenninger type. To save space, 
output for only first 10 stations is given instead of all 42 
stations . 


User's attention is drawn to the higher resolution of air- 
foil definition near the stagnation point. The boundary layer 
calculations are started at the stagnation point (NI = 6 in 
the printout below) . A few extra points ahead of the stagna- 
tion point are provided for proper interpolation of geometrical 
data in this region. 

It is necessary to input an appropriate value of ETAE (n ) 

oo 

for the first calculation station. The boundary layer growth 
for the later stations is done internally. It should be noted 
that the input for the first station differs considerably 
from the "usual" two-dimensional cases. It can be shown that 
the rel ationshie between n and the "usual" t w n-4imensionai -- 
variable, N OT , is [7] 



dw 

where w Q = 

0 d0 

e 
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Using u /U =0.57 and w. /U = 6.3 x 10^ which are 

e - 00 u °° 

e 

typical for the present test problem, and = 8, we get 
ri & .0075. 

OO Vf 

A quick check of whether appropriate value of ETAE was 
provided is that calculated V (see printout below) at the 

A 

edge of the boundary layer should be small (of 0(10 )). 

If V is "large", increase ETAE. 
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0 YFBZ AIRFOIL UPPER SURFACE SUCTION U244 

0*ACHN « .eQHTOF+00 UFP « .103338E+04 PFS « 
0»0F^ • .6756F4E-C3 MUFF ■ .396386E-06 RFC « 
CCHORO ■ .8CCC00E+01 RAOins* .375517E+C5 LESW « 
ON! . 40 . NZ . 4 ? ETAE - 


0 

0 N I 
1 
2 

3 

4 

5 

6 

7 

8 
9 

10 
n 
12 
13 
1 4 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 
27 
29 

29 

30 

31 

32 

33 

34 

35 

36 

37 
3 8 


STefA^WISE i T P FOIL 
X/C 

.9361106-02 

.562Q10E-02 

• 2 B 2090 c -02 

• 97?* 0 CO 6— 03 
. p 04PCC6-04 

C . 

. 700000 F-04 

• 7334CC' C -C3 
. 1»^6CE-C2 
.3529306-02 
.5604 60C-C? 
.6' 9990 r >0 2 
. 1 22222 c -01 
. 363775R-01 
.2* ‘'0 2*6-01 
. 394226 6-01 
. 5491 2 f - E - 0 1 

.73097° F-Cl 
.Q3°9 P6P-01 
. 11 7 1 6*F+C0 

• 14 27 356*00 
. 1704326400 
.2CC0 7 M;+00 
.231477-400 
. 264437 > + 00 
•?9P74Cf4C0 

• 33414 flr 4 00 
. 3705 64P 400 
. 407621 3+00 
.44513° -400 
.501774 : +0C 
.57674° :+0C 
.61 * 5C4 =400 
.631607=400 
.667143=400 
.6645=*? £4 OC 

• ?1°44SC4 0C' 
.734940=400 


COOPPINATFS 

Z/C 

-.6097^06-02 
-.4972 60E-92 
-.3617206-02 
-.2 26270F-02 
-• 7339 00 c -03 
C. 

. 1 06 260F— 02 
.31PP60F-02 
. 5 4998 OE— 02 
.7°27«OE-02 
.1015636-01 

. 1 2 4 P l if -01 

. 147^306-01 
.1 704 44F-01 

• 2 1 4 1 09 f -0 1 

• 2 54 63 7P-0 1 
.29157^c-oi 
.328234F-01 
.3561 P9F-01 
•3346796—01 
. 410706C-01 
.4341606-01 

• 454 P 9 OF— 01 
.472789E-01 
.4376246-01 
.4OQ344F-01 
•507P55E-01 
.513001F-01 
. 514700F-01 
.512P73E-01 
.503311 F— 01 
.4773536-01 
. 46R 474F-01 
.4475 10F-D1 
. 422469F-01 
. 4083776-01 
.377039F-01 
.350P1 BF -01 



i 


• 648 9006 40 3 
. 1409096+06 

TFS 

• 559700 E +-03 

PR 

■ 

• 720000 E +00 

. 3500006+02 

TESW ■ 

* 3 49900 E + 02 




. 7 50000 E -02 

DETA 1 - 

• 62 5 0 CCE -04 

VGP 

* 

. 105 00 CE + 01 




Ill 


39 

40 

41 
4 2 

43 

44 

45 

46 

47 
44 
40 

0 

0 N T 
1 
2 

3 

4 

5 

6 
7 
4 
Q 

10 

11 

12 

13 

14 

15 

16 
17 

19 
10 

20 
21 
22 

23 

24 

25 

26 
27 
29 

29 

30 

31 

32 

33 

34 

35 


.7fc6?9Oe+00 
.7*23^E*0C 
.8?637r*+00 
.P53816F+0C 
.*6*977**00 
, 004045 P40C 
.936603*400 
.963?*]6+C0 

•9p33*9C4pO 

. OQ5 7 PI E ♦ 0C 
.999584 - 4QC 


.322350E-01 
.3021422-01 
.2359862-01 
.1980812-01 
. 163625*-01 
• 92 9P70 £-0 2 
.3314302-0? 
-.1344002-02 
— • 436080*-02 
-.614AH02-02 
-.6647502-02 


tf/c 

0. 

.7000002-04 
.7334002-03 
.1 P6P40F-0 2 
•35293C c -02 
.5P04505-C2 

• 8 69QQC2-02 

• 1 ?????* -Cl 

.2116905-01 

.266023C-01 

• 394 .? 26* -01 
.5 40i?5r-ci 

• 6 3 1 79 a 2-01 
.1171665400 

.1 56 3?oc+o 0 

.200076*400 
.2 47775*400 
.298749*400 
.3532912400 
.4076215 600 
.467QCPE400 

• 5 Cl 7.745400 
.53Q43224C0 
.576 748*400 
.6175045*00 
# f.CT494£ +00 
•604532F+OO 
.7184495400 

• 7 5 1 09 5 F 400 
.70*3386*00 
.812079*400 
.8402825400 
.0669775400 
.09212^2+00 


T H* T A 

C. 

.2127735-06 

• 738 763 F -06 
.1250355-05 
.1831935-05 
.2467235-05 
.3274995-05 
. ?°6164*-C5 

• 4 R 3 29 1 F-C 5 
. 5793235-05 

• 6 c 4 60 1 F-C 5 
.9?45Cl*-05 
.120612F-C4 
.1710665-04 
. 2311055-04 
•? q oq 3 5p-04 
. ?^65POF-04 

• 460016 2-04 
. 6400682-04 
.642 c ?PE-C4 
.7?9118f-04 
.8^75175-04 
.9034665-04 
. 960 23 4 E -04 
*l r ?444E —0 3 
.1O9072F-C3 

• 1 161732-03 
.1223162-03 
.1282735-03 
.1340215-03 
.1295395-03 
.144P12E-C3 
. 14OR34F-03 
•l r 46C02-O3 
.1591142-03 
1 


S 

0. 

.7990002-02 
.2774182-01 
.4695262-01 
.6879212-01 
.9264875-01 
.1192265400 
.148766*400 
.1814045 400 
.2175465*00 
. 2570805 400 
. 347166*400 
.45291 72400 
.6423832400 
.P6783PF+C0 
.1126335 +01 
.1414165+01 
.1727445+01 
.2061 P4F401 
.2412802+01 
.2775515+01 
.3145025+01 
.3392675+01 
•3639645+01 
.3084515+01 
.41 25095+01 
.4362505+01 
.4593175401 
.4816082+01 
•503273*+01 
.5239945+01 
.5437945+01 
.5626545+01 
•5P0579E+01 
.5975012+01 


STATION OATA 
C«> COL 


•765232E+00 
.7526952400 
.6600765400 
.5150575400 
.3375282+00 
.1715315+00 
.205097E-01 
-.1104025+00 
-.2224605+00 
-.3206425+00 
-.4040P6F+00 
-.533063F+OO 
-.60501 95+00 
-.629629E+00 
-.6201045+00 
-.606649*400 
-.5942652+00 
-.5850465400 
-.576524*400 
-.56765PE+00 
-.5544495+00 
-.53394 4F+ 00 
-.5172502+00 
-.5075835+00 
-.5007615+00 
-.4831155400 
-.6596375400 
-.4319055400 
-.3975675+00 
-.3568425+00 
-.3000195+00 
-.24 832 5* + 00 
-.1732125+00 
-.8741302-01 
-.939300*- 02 


0. 

0. 

0. 

0. 

-.7350005-03 
-.7000005-03 
-.6300002-03 
-.5300002-03 
-.43000CF-03 
-.2900005-03 
-.1630005-03 
-.15 5 OOCF— 03 

- .1430005-03 
-.1430005-03 

— • 1 4 300C F-03 

— .14300 0* -03 
-. 14 3 0OC*-03 
-.1430005-03 
-.14 30005-03 
-.1430002-03 

— • 1 4 3000E— 03 
-.1430005-03 
-.1430005-03 
-.2140002-03 
-.2000005-03 
-.3700005-03 
-.4900005-03 
-.6100002-03 

- • 75 5 000E-03 
-.9300005-03 
-.109000E-02 
-.1215005-02 

- .1300005-02 
-.1380006-02 
-.1450006-02 


2 


O 

-n 

“0 

O 

O 

33 


o 

ZO 

g 


o 

c 

> 


3 


2 

D 

m 


ca 


IJEUFS 

. 573 5 78 E + 00 

• 5 735 702+00 
.5735705+00 
.5735776+00 
.5735776+00 
.5735772+00 
.5735765+00 
.5735766+00 
.5735756+00 
.5735746*00 
.5736736*00 
.5735705+00 
•573567E+00 
•573561E+00 
.5735546+00 

• 573646E +00 
.5735372+00 
.5735276+00 
.5735175+00 
.5735062+00 
.5734956+00 
.5734*145 + 00 
.5734765+00 
.5734695*00 
.5734622+00 
.5734556+00 
.5734482+00 
.5734415+00 
•573435E+00 
.573429E+00 
.5734235+00 
.5734105+00 
.5734136+00 
.573409E+00 
.5734056+00 


VFUFS 

0. 

.9874272-01 
.276 5 065 +00 
.4497636+00 
.594934E+C0 
.71C649E+00 
.0065885+00 
.0853945+00 
.95081 95 +C0 
• 10071 9E +01 
.1054725+01 
.1120515+01 
.1169175+01 
*11°3?4F+01 
.1177032+01 

• 1 1 70 1 ?E + 01 
.1163035+01 
.1157766+01 
.1152095+01 
.1147025+01 
•11402 9E +01 
. 1128615+01 

• 1119UE + 01 
.1113595+01 
.1109736+01 
.1099706+01 
.1086365+01 
.1070655+01 

• 1 05 1 C 96 + 01 
.1027925+01 
. 1 00C07F + 01 
.965B29E+C0 

• 922343E +00 
.8718815+00 
.0249966+00 


0WEUFS 
.6259512+06 
.4103532+06 
.3264316+06 
.3092712+06 
.2090126+06 
.1575725+06 
.1163226+06 
.0617022+05 
• 660 0 66* + 05 
.5157506+05 
.3982986+05 
•2220426+06 
.8335066+04 
-.3419532+03 
-.1168822+04 
-.1052646+04 
-.7660975+03 
-.5615062+03 
-.5212966*03 
- • 62C644E + 03 
-.9559635+03 
-.1452756+04 
-.1216965+04 
-.51692^5+03 
- . 1 0044 5 E + 04 
-.1933356*04 
-.2299016*04 
-.2998046+04 
-.3642306+04 
-.4487816*04 
-.5666606+04 
-.7499306+04 
-.9846826+04 
-.1086452+05 
-.9613442+04 


PEPFS 

* 142 54 IE +01 

• 141 844 E +01 
.1371382+01 
.1206342+01 
.1187642+01 
.1095362+01 
.1011402+01 
.9386246+00 
.8763295+00 
•8217462+0C 

• 775 3575+00 
.7032212+00 
.6636536+00 
.6500275+00 
.6552672+00 
•6627^66 +0C 
•6696316 +CC 
.6747562 +0C 
.6794945 +00 
.6844272+00 
.6917665+00 
.7031652+00 
.7124462+00 
.7179372+00 

• 7 21 61 2 F +00 
.7314236+00 
•744475E+00 
.7598476+00 
.7789816+00 
.8016225+00 
.6227636+00 
.8619495+00 
.9037065+00 
#951405 2+0C 

• 99477 8 5 +0C 



3 


36 

37 
3 ft 

39 
*0 
M 
42 

CN2 » 
0 IT 
1 
2 

3 

4 

5 

6 

0 IT 
1 
2 
? 

4 

5 

0 J 
1 

4 

7 

10 

13 

16 

19 

22 

25 

2ft 

31 

34 

37 

40 
40 


♦9154658+00 
*9366038+00 
• 9 551 64F +00 
.9 70 ° 3 fl F +00 
*9«3359F+00 
.992M7E+00 
.OOR144F + 00 
1 y/r . 


• 1 6 3 29 5 E-C3 
.1670758-03 

• 1 703ft 6F-03 
.1731758-03 
*1 7ft 3°9F-03 
.177022F-03 
.17 PC19F-03 

0. 


*63 3201E +01 
» 62 739 5F +01 
•63982OF+01 
•6503O3F +01 
. 6 5 Q 6548 +01 
® 66 4 75 OF + 01 
• 6e P491F+01 


• 49 5206F-01 
*929984 E-01 
•126630F+00 
.1542348+00 
•1784016+00 
♦202789P+00 
.2341278+00 


-.1477008-02 
-.1477*008-02 
-.1477008-02 
-.1477008-02 
— • 1 47700E-02 
-.1477008-02 
-.1477008-02 


.5734028+00 
.5733098+00 
.5733968+00 
.5733948+00 
.5733938+00 
• 5 7 33 92 E +00 
•573391E+00 


.7887778+00 

•761501F+00 

• 740033F +00 
.7221428+00 
.7062608+00 
.6900078 +C0 

• 668 7fcOE +00 


— • 780099 E + 04 
-.6746256+04 
-.6268866+04 
-.6844506+04 
-.7168318+04 
-.1587686+05 

— • 267840E + 05 


• 102753E+01 
.1051706+01 
» 10 7040E + 0 1 
.1085746+01 
.1099186+01 
.1112746+01 
.1130166+01 


Vwftll 

.140234F+03 
•11 05746*0 4 

• 72979°F+('3 

• 60P461 6 *0? 

.5953216+03 

.5952018+03 

VWAU 

*5952016 +03 
•6C33F° c +03 

• f 0*3’0F+C3 
*.6 023226+03 

.6023226+03 


OFlVt 

.9655066*03 

— • 375942 c +03 

— • 1 2 1336 F + 03 
-.1 31 402F +02 

— • 1 1 9 1 3 1 F +00 

— • 6910? 9E— 05 

OfL VW 

.PlftftO2F+01 
-.1659736+01 
7g9914F-02 
. 6050716-03 
1 4ft6^6F-05 


TWALl 

.1402346+03 
» 183481 F +04 
.1379306+04 
.1291986+04 
.12ft689f +04 
.1286878+04 
TWALl 

,12ftfcft76+04 

• 1328676+04 

.132354F+04 

.1323526+04 

.1323526+04 


DELTW 

•1694586+04 
-.4555136+03 
-.P73220F+02 
— • 50 8007 F + 01 
-.•240102F-01 
-.7391 P9F-06 
OFLTW 

• 41 8003F + 02 
-.513149C+01 
-.2118656-01 

.29P144F-02 
-.16 3 561 F-04 


FTA 

o.c oocoo 

.000197 
.000425 
• c or 6 p 9 
.000995 
.001349 
.001 7 5 ft 
.002232 
.002781 
.003417 
.004152 
•00*004 
.005 990 
•CC7131 
.CC7131 


F 

C. 

.116P796-04 

.5431476-04 

.14192^6-03 

. ?9l* r or_C3 

.5223908-03 
.P4PP9S c -C 3 
.12*^6566-02 
. lftl C 2 e f-02 
*2441^36 — C 2 
•317660^-0? 
.4028136-02 
• 5 01 39 ? c -0 2 
.615509F-02 
.6155C9E-02 


U 

0. 

•11° 6076+00 
•254B53E+00 
. 4C7615F+00 
. 57014CF+C0 
.7274956+00 
.8583276+00 
.qi,A794E+00 
.985824F+G0 
. 99801 8 F +00 
.999889F +00 
.9999996+00 
.1000006+01 
.1000006+01 
•1C0000E+01 


V 

.6023226+03 
.6011268+03 
.5917558+03 
.561861 E+C3 
.496P22E+C3 
.3PP7P6E+03 
.2508838+03 
.1212746+03 
.3845636+02 
.6596946+01 
,4497036+00 
.6648976-02 
.1900386-05 
<-.6714856-09 
-•671485E -09 


G 

0. 

• 241 52 5E— 04 

• 1 04 914 £-03 
.2534456-03 
.4780296-03 
.7828438-03 
.1168296-02 
.1633548-02 
.2180316-02 
.2815516-02 
.3551126-02 
. 4 4026R6-02 
.538847E-02 
. 6529646-02 
.652964E-02 


W 

0. 

• 2 38 63 2F +00 
.4613086+00 
. 654159F+00 
.8052018+00 
,9083078+00 
•966479F+00 
.9915546+00 
.9988496+00 
.999979F+00 
.1000006+01 
•100000F+01 
. 100000 F+01 
.1000006+01 
.1000006+01 


T 

.1323526+04 
.1099726+04 
.8563376+03 
.6110818+03 
.3870536+03 
.20 7727F+03 
.8814346+02 
.2652176+02 
.4650998+01 
.2643426+00 
-.2498706-01 
-.2121526-02 
-.1831306-04 
-.2364646-09 
-. 2364846-09 


TE^IP-R 
.104062E+01 
.1040146+01 
.1038416+01 
.1034946+01 
.1029396+01 
.1021986+01 
.1013876+01 
*1006926+01 
.1002516+01 
•100059F+01 
•100007E+01 
. 1 000 DOE + 01 
.1000006+01 
.1000006+01 
. 1000006+01 


Y-FT 

)• 

.361757E- 
.7801006- 
• 12631 8E- 

• 1 81 996 E - 
.246042c- 

• 319 1 1 3E - 

• 404 1 4 OE - 
.5014368- 
.6137276- 
.7435706- 

• 8 93 64 5E- 
• 106780E- 
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Listing of COSAL 
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PROG* AH COSAL (INPUT, OUTPUT# TAPES -INPUT# TAP E6 -OUT PUT# TAPE71 COSAl 

CnSAL 
COSAl 
COSAL 
COSAL 
COSAL 
COSAL 
ms AL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 

SUPPPUTTNF LU IS AVAILABLE I* FOPTRAN OR COMPASS VERSION CDSAL 

USF OF COMPASS VERSIONS ON COC MACHINES WILL IMPPOVE CPU TIME COSAL 



COSAL 

INPUT INSTPUCTinN$******************Cn$At 


COSAL 


NSTART STATION NO. TO BEGIN CALCULATION FOR MULTIPLE STATTONCOSAL 


COMPUTATION COSAL 

IPFGIN • I INPUT ALPHA AN" PE^A WILL rc USED TO MAKF WAVE Nt'M BE R C 0 S AL 

PPOGQAM WILL PROCEED FPOM STATION NSTAQT TO SEARCH CO^AL 

FOP UNSTAPLE MODE FOP WAVFNUMRER OBTAINED FROM COSAL 

TN*UT ALPHA AND BETA (SPECIFIED ONLY WITH ITRIV-1) CO^AL 
I B L I N D MUST RF SET TO ZFRO IF I R E G I N IS SET TO ONE. COSAL 
AMPi IFICATION PATES WILL RE MAXIMIZED (ENVELOPE "ET.JCOSAL 
IBFGIN • 0 DISABLES TH£ TPTION COSAL 

I p SI * 0 DEFAULT STREAM VISE OP CRITICAL CROSSFLOW ANGLFS WILL COSAL 

RE USED FOR UNSTABLE MPDF SEARCH CDSAL 

IPSI - 1 USER INPUT ANGIE RSI WILL BE USED AS WAVE ANGLE FOR COSAL 

UNSTABLE MODE SEARCH COSAL 

PST - WAVE ANGLE FOP UNSTABLE MODE SFAPCH. (OFGREES) COSAL 

NPSt VALUES MAY RE INPUT. FOP ITRIV-5 NPSI IS C"SAL 

l I M IT E D TP 10. FOR ITRIV-1 OP 9 OP 6# NPSI IS L IM I TFDCPS AL 
TO 1. SIGN OF PSI IS MEASURED POSITIVE IN A COSAL 

COUNTERCLOCKWISE DIRECTION FROM THE LOCAL FREE COSAL 

STREAM DIRECTION COSAL 

NPSI • NUMRFP OF INPUT PSI VALUES (LIMIT OF 10) COSAL 

NSTOP - STATION NUMBER TO END COMPUTATION COSAL 

NIHTEG - 0 NO INTEGRATION OF AMPLIFICATION RATES COSAL 

CALCULATIONS WILL RE PERFORMED ALnNG AN ARC OF COSAL 

CONSTANT RADIUS COSAL 

NINTFG « 1 AMPLIFICATION PATES WILL RF INTEGRATED COSAL 

ASSUMES 7 ER P AMPLITUDE AT LEADING EDGE COSAL 

NINTEG • 2 AMPLIFICATION PATFS WILL RE INTEGRATED COSAL 
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NR - o 
NR « 1 


NP - 2 
NWANT - 

NSTAT - 0 

nstat « 1 


IRLINO 


- 1 


I TP IV - 0 
ITPIV • 1 

ITPIV -?j 3 
ITPIV - * 


IF NR-0 THEN STARTING APTITUDE WILL RE TAKEN AS ZEROCOS AL 
AT STATION NUMBER . NZEPO COSAL 
IF NR-1 THIS DENOTES A RESTART PUN COSAL 
WHICH MEANS THAT THF AM ®L ITUDE. REYNOLDS NUMBER t COSAL 
AKD DISPLACEMENT THICKNESS AT THE STARTING LOCATION COSAL 
MIST ft E INPUT FPOM THF RPfVIOUS RUN COSAL 
IF N P * ? THIS IS THF SA*F AS (NR«0) EXCEPT THAT COSAL 
NZERO IF SET INTERNALLY TP BE THE STATION I M ME D I AT EL YC OS A L 
BEFORE THE FIPST ONE FOP WHICH GOOD UNSTABLE MODES COSAL 
ARE FOUND COSAL 
NOT A RESTART COSAL 
THIS IS A RESTART RUN COSAL 
NOTE * NR ■ 1 PF5TAPT OPTION CAN ONLY BE USED FOR COSAL 
TTRIV-I WITH NINTEG-2 COSAL 
NOT A p E S T A P T COSAL 
N l ,M BE p OF STATION TO BE INPUT IF SOLUTION DESIRED AT COSAL 
ONE STATION ONLY COSAL 
ONLY hue STATION DESIRED ( NWANT MUST BE INPUT) C"SAL 
SFT FP» ITPIV • FO • 0 COSAL 
HPPF THAN flNF STATION DESIRED COSAL 
NS T ART AND NSTOP MUST BE INPUT COSAL 
SFT FOR ITPIV .NF* 0 COSAL 
IF ITRIV - 1 IS USED* THEN IRLINO MUST BE INPUT. COSAL 
AT STATION NSTAPT* AN ALPHA BETA COMBINATION THAT COSAL 
YIELDS A GOOD UNSTABLE MODE IS KNOWN. THIS ALPHA ANDCOSAt 
BETA COMBINATION MUST RF INPUT. COSAL 
IF IBEGIN IS SET TO ONE » AND I ft L I ND IS SET TO ZFPO* COSAL 
PROGRAM WILL EXECUTE AS DESCRIBED UNDER IBEGIN - 1. COSAL 
ALPHA AND BETA Frp UN$TARLE Mfjn E IS NOT KNOWN. USFR COSAL 
SHOttLD INPUT RANGE OF X LFNC AND SPECIFY VALUE OF PSI COSAL 
(INPUT OP DEFAULT). PROGRAM WILL SEARCH FOP UNSTABLE COSAL 
M OOFS AUTOMATICALLY WITHIN THE SPECIFIED PSI-XLENC COSAL 
ma TPTX COSAL 
TF IRLIND - 1 IS SFLECTED, IBEGIN MUST PE SFT TO ZFROCOFAL 
SIMPLE EIGENVALUE COMPUTATION AT ONE STATION ( N S T A T-OC 0 S AL 


NWANT M U c T PE GTVEN) 


COSAL 


IAB PAR AMFTFR MUST BE SET TO EXFCUTF DESIRED OPTION. CO$AL 


S F A 0 C H PROCEDURES TO MAXIMIZE AMPLIFICATION WILL 
PE IMPLEMENTED. (FREQUENCY FIXED) 

T B L IN D MUST be SET TO 0 OR 1 (SEF INSTRUCTIONS FOR 

IRLIND ) 

INOPERATIVE 

PROGRAM WTll FOLLOW AND INTEGRATE n factors for a 
DISTURBANCE OF FIXEO WAVELENGTH AND ORIENTATION* 


COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 


(RELATIVE TO LOCAL FREE STREAM DIRECTION). FREQUENCY COSAL 
OF THE DISTURBANCE CHANGES. COSAL 
AMPLIFICATION PATES ARE NOT MAXIMIZED. COSAL 
ONLY ONE VALUE OF PSI AND XLENC MAY BE INPUT. COSAL 
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NPSI AND NXLEN MUST BE SFT TO 1. COSAL 

IF IPSI - 0, DEFAULT CRITICAL CPOSSFtOW ANGLE COSAL 

CRTAINED AT STATION NSTART WILL BE FOLLOWED ALL THE CnSAL 
WAY THROUGH. CDS AL 

IYPIV • 5 PROGRAM yy LL FOLLOW AND INTEGRATE N FACTORS FOP A COSAL 

DTSTUPRANCF OF FIXED WAVELENGTH AND FP60UENCY. COSAL 

OPIENTATION OF THE DISTURBANCE CHANGES. COSAL 

AMPLIFICATION PATES ARE NOT MAXIMIZED. COSAL 

ITPTV • 6 PPOGPAM WILL FOLLOW AND INTFGRATF N FACTORS FOR A COSAL 

DISTURBANCE OF FIXED ORIENTATION AND FREQUENCY. COSAL 

DISTURBANCE WAVELENGTH CHANGES. COSAL 

I AB - 0 INPUT ALPHA AND B FT A WILL RE USED FOR SIMPLE COSAL 

FIGFNVAIUF COMPUTATION COSAL 

I AB ■ 1 STRING OF INPUT ALPHA, D ETA PAIRS WILL BE USFD FOR A COSAL 

ST° ING OF SIMPLE EIGENVALUE COMPUTATIONS COSAL 

LIMIT OF 10 (INPUT THROUGH AL PX#BETX ARRAYS) COSAL 

IAB » 2 ONE INPUT WAVEIENGTH TO CHORD (YLENC) VALUE WILL BE COSAl 

USFD WITH INPUT VALUES OF PS! FOR A STRING OF SIMPLE CnSAL 
EIGENVALUE COMPUTATIONS (LIMIT OF 10 PSI VALUES) COSAL 

ALPHA AND PFTA WILL THEN RE COMPUTED BY THE PROGRAM COSAL 
T T ° I V - 0 NEEDS TO BE INPUT FOR ANY OF THE IA» COSAL 

OPTIONS TO BE EXECUTED (Np$I NEEDS TO BE IN»UT) COSAL 

N2EP0 • NUMBER OF STATION AT WHICH STARTING AMPLITUDE IS TO COSAL 

BE ASSUMED F 0 1* A L TO ZERO COSAL 

INPUT ONLY IF NR • 0 . COSAL 

NAB « NUMBER OF ALPHA AND BETA PAIRS. (AtPX AND RETX) COSAL 

(LIMIT OF 10) COSAL 

ITYP - 0 CROSSFLOW COMPUTATION COSAL 

ITYP ■ 1 T-S COMPUTATION COSAL 

ITYP SHOULD ALWAYS BE SPECIFIED COSAL 

ICON • 0 PROGRAM WJU TERMINATE COMPUTATION UPON ENCOUNTERING COSAL 

FIRST STAPLE REGION COSAL 

ICON - 1 PROGRAM WILL CONTINUE THPU FIRST STABLE REGION AND COSAL 

WILL PICK UP COMPUTING A SECOND UNSTABLE ZONE, IF ONE COS AL 
EXISTS. PROGRAM WILL TERMINATE UPON ENCOUNTERING COSAL 

SECOND STABLE PFGION. N FACTOR WILL BE RESET TO ZERO COSAL 
UPON ENCOUNTERING SECOND UNSTABIE ZONE C^SAL 

ICON ■ 2 PROGRAM WILL COMPUTE THROUGH ALL STABLE-UNSTABLE COSAL 

PEGinNS. COSAL 

NXLEN • Nt'MBCR OF INPUT VALUES OF XLFNC COSAL 

GENERALLY A MAXIMUM OF 5 ALLOWED EXCEPT THAT IF COSAL 

( TTRIV -05* 1LIMITED TO 1 ) COSAL 

( IT R I V • 5? LIMITED TO 1), (ITRIV-6) LIMITED COSAL 

TO 5)) COSAL 

XLENC ■ RATIO OF WAVELENGTH TO CHORD COSAL 

RFPFO • PHYSICAL FREQUENCY OF T«E DISTURBANCE WHICH COSAL 

COSAL IS TO FOLLOW (HERTZ) COSAL 

I^P"$ SET TO 0 WILL DTSAfUF THE PRINTS COSAL 
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NPST « 1# NXLFN • 1# PST - 0.0# NWANT - 0# NSTART-0# 

NSTOP-O# 

COS At 

193 

MG-4# NG-21# h.5# IPRZ-10# YE06E-100. 


COSAL 

194 



COSAL 

195 



COSAL 

196 


COSAL 

197 



COSAL 

198 

>■ 


COSAL 

199 

***#*****PHYSTC AL pa pame TER S***+*****++ 


COSAL 

200 

THF FOLLOW I NG VALUES OF THE PHYSICAL PARAMETERS WILL 

BF SET 

COSAL 

201 

UNIFSS CHANCED IN THE DATA STATEMENT 


COSAL 

202 

PPANDTL - 0.72 < PR ANDTL NUMBER) 


COSAL 

203 

GAMA « 1.4 (RATIO OF SPECIFIC HEATS) 


CDS AL 

204 

STOKFS • 1.2 (RATIO OF SECOND COF FF ICIFNT OF 

VISCOSITY 

COSAL 

205 

TO THE FIRST) 


COSAL 

206 



COSAL 

207 

(FIRST COEFFICIENT OF VISCOSITY 

IS 

COSAL 

20 8 

CALCULATED USING SUTHERLAND’S 

LAW) 

COSAL 

209 



COSAL 

210 



COSAL 

211 

*++»«+*** **»*+***+**$T ART COS At CODE ♦+**** ********** +****♦♦♦**+*** COS AL 

212 

°EAl M UF # MACH 


COSAL 

213 

DIMENSION UF (60 )# THET A( 60 ) # XC (60 )# TITLE (20) 


COSAL 

214 

DIMENSION XS(102)#US(102).USl(I02)#US2(102)#WS(102># 


COSAL 

215 

1 WS1 (102)#WS2(102)f TS (1 02 ) # T S 1(102 ) # T S 2 ( 102 ) 


COSAL 

216 

DIMENSION yM(102) #UM(102)#UM1(102) #UM?( 102) #WM(102 )# 


COSAL 

217 

1 w*l (102>#VM’<102># TM(102)#TM1(102 )>T»2 (102) 


COSAL 

218 

DIMENSION WORM (101) 


COSAL 

219 

C Pt E X F 0UV1 (2 020) 


COSAL 

220 

DIMENSION F0VK1020) 


COSAL 

221 

DIMENSION E CV? ( 1020 ) 


COSAL 

222 

COMPLEX A (5# 5# 101) #8 (5# 5# 101 )» AA( 5#5#101)#BB (5# 5 *101) 

# CC ( 5# 5# 101 ) 

#COSAL 

223 

1 UU(5# 101)#UWPK(5#101)#VV(5#101)#VWRK(5#101) 


COSAL 

224 

OIWSION I°(5»101)»IC(5>101)»XX(10UtCSP(101) 


COSAL 

225 

COMPLEX WPPKC ( 320) 


COSAL 

226 



COSAL 

227 



COSAL 

2 28 

DIMENSIONING FOR GLOBAL EIGENVALUE PROBLEM 


COSAL 

229 



COSAL 

230 



COSAL 

231 

COMPLEX AC(100»100)#EIGA(100) 


COSAL 

232 



COSAL 

233 



COSAL 

2.34 

OPOFR OF AC CAN BE ICREASED TO 160 (NOIM IN THE OATA STATEMENT 

COSAL 

235 

WILL HAVE TO BE CHANGEO ACCORDINGLY). 

COSAL 

236 

TUTS CARO WILL THEN PEAD t 


COS At 

237 



COSAL 

236 

COMPLEX AC(160#160)#EIGA(160) 


COSAL 

239 
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CPPPLEX XL AH , XI AMI, XL A H2, VA, VB,VA1,VB1,VA2,VB2 

complex nun?:,xLAMA 

D THE M S ION ALPXdO), BETX(IO) 

DIFFUSION PSKXOi 
OIHFMSION YLEN<5), X L f NC ( 5 ) 

CPH^PM AC 

CrHMPN /MFID/ KPTS*Y(102)»U(102)»U1(102)#U2(102)»W(102)» 

1 W1 (102) #U2< 102) »TC102»* TK102) #T2 (102 ) 

CCH^n^ / POPP/ X m ACH*GAHA#REYjPRANDTL#5TQKESjDSTZ 

/ X M H / MACH 

crvprN /nr,/ g,yl,xx 

C C> M h 0 N /HAP/ YEOGE 

COHHOM / L nr A L / LLL,NPASS,INTRP0L,IPP7 
crv-rN /rnr,F/ te,mijf,mf 
C^mp n /miMWPK/ SAVEK640) 

COYMON /GLOBE/ TLOC 

fPHMriM /FUN/ JPASS 
CPHHpM / F Gl HP / I GL 

co w *on /wup/ xCpThfta 
rr w HPN /PPTSTS/ G 1 , G 2 # H, HN 

CO m hpn /PPTNTS/ TP^lpIPe?,IPR3.rPR<»,TPP5*IPR6,IPP7 
FCUI V A L F ►’€ F t X L E N , y l E M C ) 

FOPTVALFNCE t AL D VU ) »VA1 ), f ALPX(3), VB1 ) # ( A L PX ( 5 1 , VA2 } * 


CDS AL 
CHSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
CHSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
(ALPX(7>, COSAL 


««TX(3>,oimS), ( BE TX ( 5 ) • XCOS A l 
?lA M * (»ETX(7),ALPH41), <PFTX( 8 )»ALPHA 2 ), ( BETX <9 ) , BETA 1 ) , < 8 FTX(CnSAl 


310 ), “FTA2 ) 

IT IS ASSIl-FO U»ILE FPOUIVALENCING THAT 160 POINTS AT REST CAN 
BE USED Fnp tncn SFA&CH 

EOIIIVALFNCF ( A (1 ), AC (1 )) , ( R ( 1» . AC ( 2526 )l , I EOtIVl { 1 1 , AC ( 5051 )) , 

1 tf0Vl<n.AC(707in,<E0V2<l>,AC(8091>) 

EOl'I VALE NCF (l!ll(l ) , EOUVl (1 I ) . (UUPK (1 ) >F0UV1( 5061 ) » 

1 ( VV f 1 ) » FOI'Vl ( 1 0 It ) ) * ( VWPK c 1 ) , EOUVl ( 1*16 ) ) 

FOriVAlFNCF (>S(1)>F0V1(1))>( OS tl)»EOVl(103))#(USltl)»EQV 1(2051). 

1 (l'S2 (1 1 , F0V1 ( 307) ) , ( US ( 1 ) , E0V1 ( A09 ) ) , ( WS1 ( 1 ) » E0V1 ( 511 ) ) , 

2 (US?(1).EOV1(613))»(TS(1).FOV1(715)).(TS1(1).EQV1(817)). 

3 (TS? U ) »ECV1 <91Q> ) 

. {YMn >^0V2(l)),(UHa),F0V2(103) > # < UNI U > * EQV2 l 205 > > , 

1 U ? f 1 ) > F0V2 (307H • ( VN( 1 ) » F0V2 (409) ) • ( UMl (l ), FQV2 (511 ) ) » 

2 <UH?(l)#fOV2(613) ) * ( TH( 1 ) , E OV 2(715))# (TM1(1 )#FQV2(817)), 

3 (T M 2ll)#Env2(91Q) ) 

FOlilVALFHCF ( S A VF 1 { 1 ) , W.OPKC ( 1 ) ) 

HAMFMST /CARFHM/ NSTAPT,miNO,NSTnP,NTNTEG#rTYP,reEGlN,NP, 

ITRIV » RFp P°* ALPHA, BETA, I A B# NAB, A IPX, 8ETX, IPRI, IP COSAI 

o IPR?# 

3»XLEHC*NPSI#NXLFN, HG#MG» H,NCHEB# ICHEB# IPPZ»YF0G6 COSA 

DATA IPHGTN/O/, IR L lNO/l/,NTNTEG/2/ f MP/2/,NSTAT/l/,IGLOB/l/ f ITRIV/5C0SAI 


COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 
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249 
2 50 

251 

252 
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256 
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258 

259 

260 
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264 

265 

266 
267 
264 

269 

270 

271 

272 

273 

274 
2 75 

276 

277 

278 

270 

280 

291 

292 

283 

284 

285 

286 

287 

288 


s§ 

31 

S? 


9 
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C 


C 


COSH 
COS AL 
cnsAi 
cnsAi 
COSAL 
COSAt 

cosai 
COS AL 
c ns al 

COS At 
COSAL 
COS A L 
COSAL 
cosai 

COSAL 

COSAL 

COSAL 

CflSAL 

COSAL 


l/,TA«/0/,N7E»O/2/,NAB/O/# ITY P/O/# I CON /I /, T PR 1/0/ » IPR2/0 (» I PR 3/0/ » ICOSAL 
2PRW0/,I*R5/0/.TPR*/l/,lPP7/0/,IPSI/0/,FPS/l.E-5/, JTOP/X / , I TOP / 1 / , COS AL 
3NCHE P /21/,ICHFB/2/,FROT9L/. 005/, NPS I /I /,XLENC/0.5E-3, 4*0.0 /#JP ASS/COS AL 

40/, ! T® I P/0/, NO I M/100/, ICOUNT/0/,REYTN/0./,°AOtN/0./,DSTnN/0./, COSAL 
5XNIN/0./,PFPFO/0. 5/ » NXl EN/1 /, PSI/ 10*0.0/, NYANT/0/,NP0$/0/, 
6IPP7/lO/,PFANr>TL/.72/,$TC*FS/O.-0/,GAMA/1.4/,YEnGE/lOO./, M /5/, 

7 MC/4/, INTP POL /O/, LLL /10/, NP ASS /2 /,NG/?1/, NS TART/O /, NSTOr/O/, 

8 At PHA/O./, BETA/O. /,ALPX/10*0./,BETX/10*0./ 

PFAT CAPOS 

PFAO (5,CAPDTN) 

I F « IPR7.E0.CJ IWTPP0L-1 
NC«NCHFR 

IF ( ICHFB .EO.l ) M C ■ 2 1 
IF (ITPTV.EC. 4) IGLOB-2 

IF <IPFGIH,F0.1I UAVE«SQRT(ALPHA**2*BETA**2) 

WPITF 1 6 ,C APH1N I 
PFAH (?) TITLE 
PFAO (7) N2T,PAr>TUS, CHORD 
WPITF (6,143) 

WPITF (6,133) TITLE 
WPITF(6,15Q)CHpPD 
WPITF (6,143) 

*****TNPliT CHFCK$**** 

IF (IBEGTf.EQ.l.ANO.ITPlV.NF.l) CALL CHECK ( 50HIREGIN ITRIV CONFCOSAL 

I ^ ^ ^ ) COSAL 

IF ( MR . EO. 1 . AND, ( IREGIN.NE .O.OR. IBLINO.NE.O) ) CALL CHECK ( 50HNR ■ COSAL 

II IRLTNP OP I8EGIN CONFLICT ) COSAI 

IF ( IBFGIM.E0.1 . AND. IBUND.EO.l) CALL CHECK ( 50H I BL IND-I BE G I N CONFCOSAL 

^ ^ J T ) COSAL 

1 ^NWANT^PNFt IC # NWANT. EO.O.ANO. ITRIV. EO.O ) CALL CHECK < 50HN $T ATC OS AL 

IF (NSTAT. EO.l. AND. NSTAPT.LT. 2) CALL CHECK ( 50HNSTAR T MOT SET PROPCOSAL 

* COSAL 

IF ( ITPIV.FO.O. AN0.NSTAT..NE.0 ) CALL CHECK <50HITRIV*0 — NSTAT CONFLCOSAL 

) COSAL 

IF ( ITP IV . EC. 2 . 00 . ITR I V. E 0. 3 ) CALL CHECK ( 50HIN0PE P AT IVE ITRIV VALCCSAL 
1UE SELECTED ) COSAL 

IF CITPTV.FO.l.ANO.CIBlINO.NE.O.AND.IBLINO.NE.in CALL CHECK ( 50HIC0S At 
lBLlND-ITPlV CONFLICT ) COSAL 

IF ( ITP IV. F0.4 . AND. ( NPSI .NE.l .OP .NXLFN.NE.l) ) CALL CHECK ( 5 OHI TP I VC OS A L 
1'4—KUF K TP N P S I CONFLICT ) CnSAL 

IF (HPSI .GT.10.0P.NXLFN.GT.5.0R .NAB.GT. 10) CALL CHECK ( 50HNP S I , N XLC OS A L 
1EN»0P NAB IS TOO LAPGE ) COSAL 

IF UTPIV.NE.O. AN9, NSTAT .EO.O ) CALL CHFCK ( 50HN$TAT*0 — ITRIV CONFLCOSAL 

1KT > COSAL 

NPP-NCHFfU2*IP07 cnltt 

NG° * ( NG-1 ) *MG COSAI 

I^(NPP.GT.101ICALL C HF CK ( 50HTOO MANY NODE POINTS FOP LOCAL SEARCH COSAL 
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146 
046 
696 
896 
496 
996 
596 
*96 
696 
296 
196 
096 
656 
856 
456 
956 
556 
*56 
656 
256 
156 
056 
6*6 
d*e 
4*6 
9*6 
6*6 
**e 
6*6 
2*6 
1*6 
0*6 
666 
966 
466 
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IV SOD 
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TV SOD 
IV SOD 
1 v SO D 
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IVSUD 
TV SOD 


* Ui 00 
9 01 00(aVN*l‘J # X HI 

o ■ s s v<j r 

UI*I 

9 01 00 <0*03*dVl) d 1 
SA'VA ( 26 1 4 9 > dl I drt 
( 161*9) 3ll art 

wvix'vidu'vHoiv (oet'v) diiart 
U)ISd 4 aaUH3/U)N3lX ( 501 # 9 ) 311 art (2*03*yvi> dl 
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(<S$D 4 *vix 4 Vidd 4 VHd IV I 

•DI 4 «I 4 9N 4 9H 4 H|QN 4 D.KdOrt 4 V9I 3 4 3V 4 DD 4 88 4 VV 4 w 4 v ) lVdulO UVD 

NOlldO 0 ■ uVl ****** 

3 fl K I 1NJD 
(1 i Aid d* Vidd 
II ) Xd IV- Vnd TV 
3HM1HJD 
NO I 1 dO l « dV 1 * * * * * 

(lHd + 44562 # 46/(DISd)NlS + Artn»(r)Xlda 
( lHd + 44562 # 4S/«-n ISd» SuD*Artrt*< n AdlV 


t^sud 8vn 4 w 6 jq 

1?SUD (I)N3lX/21S0*66t*f£**2-Artrt 
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■»vsud 5 oi go (o’od’avn di 
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1VS0D (ZN ‘lUVrtN) rtjld 11VD 

TVSOD dlldQdd 3lVladOoddV lOdNl— 

IVSUD NOiloG 0 ■ A 1 ail ***** 

T^SOD 4 01 00 (0*3U # Aidll) dl 

ivbOD oaainoa* Nuuvindwoo amvANaoid aidwis di >odno 

l^SOD ( 1 Z N ) VNIrt 11VD 

IVSUD SBmVA QIDSIANI ONV Adi3w030 OMrt Uvda 

1VS0D dOMlMUD 

T^SUD 0«0mD«( I)DN31x-U)Nd1X 

TVSUD NBIXn 4 1* 1 l JO 

SOD 2 Ui 00 (Q*03*N31XN) dl 

T^SuD (621 * 9 ) dl 1 art 

1VS0D 311a HI SNUUV1S dO ON UVad 
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IV SOD ( i 

IVSUDhDaV 3S 1V8Q10 »0d SlNlOd 300N ANVW 001H06 ) XD3HD 11 V D ( 09 1 * 10* dOh ) dl 
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4* 

U> 


6 

C 

? 

c 


8 

9 
C 

C 

10 


11 

c 

c 


13 

c 


13 


1* 

C 


15 


CONTINUE 
CALL exit 

****** pND OF ITRIV • 0 OPTION 
CrNTTNUF 

~~ CHFCK IF DEFAULT ANGLES WANTED 

IF UPSI.FC.O) GO TO 9 

on 8 I »1 > N PS I 

PS 1 1 n *PSI ( n/57. 29577 

CPMINliF 

— FMVflOPF NETHOD AYP4$$ 

IF ( ITRTV.F0.<..nR.ITRIV.EO.5.0R. ITRIV, E 0 . 6 > 60 TO 11 
»**»*mihn, I T® I V ■ 1 R RANCH 
IF ( IRl INn.NE.O) 60 TO 11 
CONTINHF 


IP (N5TAT.fQ*0) NDUN-NWANT 
IF (NSTAT.FQ.l) NDUN-NS T ART 
CALL FlPwtrOLJM^NT) 

GO TO ?9 
CTMT INIIE 

ITPIV - A? 5* 6 STARTUP LOOP 
***** I T P I V - 1 WITH IHINIO . 1 STAPTUP LOOP 
IF <I«EGlM # EQ.O.nP.ITPIP.EO.O) GO TO 12 
IT® I P-0 
IPf GIN-0 


IPSI-1 

PSI < 1 ) -PSISAV 
XLFN (1 J-XLFNS AV 
CONTINUE 


CnrFLnSjK^ARnNZ.”^ 0 ^ CPITKAl CR0SSFL ° H ANGlE 

PHI « ATAN( W(KPT$ ) /ll(KPTS) ) 


IF, t ITPIV.FQ.l. ANO.ITYP.EO.O.ANO.rPSI.EO-O) 
IF ( ITPIV.I f .5,0R. ITYP.NE.O.OR.ICOUNT.FO.O) 
CONTINUE 

CALL C P IT (PSIC9IT) 

PSI (1 )«PSICRIT-PHI 

N PS I *1 

CONTTNUF 

IF (NZ.CT.NSTOP) CALL FXIT 
IF (NP.NE.l) GO TO 15 
***** PF S T APT INITIALIZATION 
XNiXNIN 


GO TO 13 
GO TO 14 


OSTZ-nSTZlN 

PEY-PE^IN 

CPNTINMC 


CALL makylG 

IF ( IPSI.E 0 . 1 # OP.ICOUNT*NE.O) GO TO 16 
N P S 1*1 


IF NEEOEO 


COSAL 

385 

COSAL 

386 

COSAL 

307 

COSAL 

388 

COSAL 

389 

COSAL 

390 

COSAL 

391 

COSAL 

392 

COSAL 

393 

CnSAL 

394 

COSAL 

395 

COSAL 

396 

COSAL 

397 

CnSAL 

398 

COSAL 

399 

ro$AL 

400 

COSAL 

401 

COSAL 

402 

COSAL 

403 

COSAL 

404 

COSAL 

405 

COSAL 

406 

COSAL 

407 

COSAL 

4 08 

COSAL 

409 

COSAL 

410 

COSAL 

411 

COSAL 

412 

COSAL 

413 

COSAL 

414 

COSAL 

415 

COSAL 

416 

COSAL 

417 

COSAL 

418 

COSAL 

419 

COSAL 

420 

COSAL 

421 

COSAL 

422 

COSAL 

423 

COSAL 

424 

COSAL 

425 

COSAL 

426 

COSAL 

427 

COSAL 

4 2 3 

COSAL 

429 

COSAL 

430 

COSAL 

431 

COSAL 

432 
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C ***** *N6tE COMPUTATIONS rn«Ai 

IF <ITYP.EO.O) CALL CPIT (PSICBIT) rnlti 

IF (ITYO.FC.O) PSIUJ-PSICRIT-PHI — 

16 i CPKTIMUF‘ F °‘ n <>SItl >- AT AN< v '<KPTS»/UCK«*TSH-PHI COSAI 

• IF IITPIV.F0.6.n».ITRIV.E0.1) <50 TO 20 5n^, L 

C ***** ITP IV . .,85 INITIAL STATION UNSTABLE MODE SEARCH COSAI 

MWV.2.*3.1«150*OST2/XIFNCX) JFAklh COSAL 

00 19 r.l.NPSI 
ALPHA.wy\'»roS(PSH IJ+PMT ) 

»fta.wuv*sin(psi(i> + »hi> 

i^ A tpHA!pc^!Hj;KSpt ,rc, ‘ c ' EIGA ' W0RKC ' NDIM, '' G ' N6 ' I8 ' IC ' 

lisTl^TTlA^HL^^A^XL'A; 152 ’ XL EN « 1 » ^ ‘ I, *57. 295T7. N7. PHI COS AL 

■ ^ ^ ^ ^ UPITE 16 . 106 ) NZ,XLFN(l)/CH0P0,PSI(n*57.29577,PHICnSAL 


1*57. 29577 'P)*u».nu« w ini 

♦ ^**cmfck accuracy, S ir , n of imaginary rapt of omega 

IF ( AlMAGf xi AM) .Lt.O.C) GO TO IB 
ISAVF-I 
GO TP 20 
Cr> T JNi ic 

ll \ IIn! V *r ° # * 1 WPITf <6,149) N7» XL FN(1 )/CHOPO,P$I < I)*57 8 295?7 
CrNTTNUF V * F °* 5) WRITE *6,150) NZ, XLFN (1 ) /CHORO, PS I< I ) *57 . 29577 
GO TO n 

C0NTINUF° P RACK Aig ° REA ° NFXT STATI0N IF Nn INSTABILITY FOUND 
JPAS$.0 

IF (TTPTV.WF.6* A NO „ I TP I V . N E • 1 ) GO TO 31 

***** I TP I V * 1 J 6 INITIAL STATION UNSTABLE MODE SEARCH 

DO 23 T-1,NXLEN 

WWV»2**2« 14159+0ST2/XLEN(I ) 

AlPw A . W wv*rnS(PSI(l)+PHl) 

PETA-WWV*$TN(PSI(1)*PHT) 

CALI GLrPAt (A,p, AA,RB,CC,AC,EIGA,W0RKC,NDIM # HG,NG,TP, ic# 

1 ALPHA, RFTA,XLAM,C$*>) 

CALL LOr A l < A,B, AA,BR,CC,t)U,UWPK,VV,VWPK,M,NC,IP, IC , 

3 ALPHA,PFTA»*LAM,VA,VR,CSP, WORK) 

*1111 I*’ 107 * ITRIV,N7,PSI(1)*57. 29577, XL E N ( I ) /C HOR D 

WRITE (6,130 ALPHA, BETA, XLAM 

***** C HFCK ACCURACY AND SIGN 

IF ( AIMAG(XLAM). LT.O.C) GO TO 22 

I S A V « T 

GO TO 24 

CONTINUF 


COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

cnsAL 

COSAL 
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u 


23 
C 

24 


C 

c 

25 

26 


2ft 

C 

c 


c 


c 

29 

c 


c 


CONTINUE 

WRITE (6*108) ITRIV*NZ 

***** LOOP RACK AND READ NEXT STATION IF NO INSTABILITY FOUND 
00 TO 11 

continue 

IF t ITPTV.FO.l > GO TO 41 
VWV1 « WWV 
MUMR-O 

FPf O.XMFPO(PFREO*UE<Nn*OST7) 

GO TO 26 

***** I TP IV » 6 INITIAL STATION CONVERGENCE LOOP ON DESIRED 
***** F PFOUENC Y 

CAIL GIPPAl (A* P* AA*RB,CC *AC, EIGA, WORK C, NOIM , MG , NG , I R * tC * 

1 Al <>HA,fiETA*Xl AM,C$p ) 

CONTINUE 

CALL LPCAL(A*8> A A* RR * CC * UU* UWPK * VV* V WR K * M* NC * I R, IC, 

1 ALPHAS ETA* XL AM, VA,VR,CSP*WORK) 

IE ( T°P7.F0*0) G n TO ?P 

WPITf (6,1P9) NU*8# XLFN( IS AV) /CHQRO, *SI (1 ) *57.29577 
VCITF ( 6* 127 ) AL°HA,8FTA,Xl AM # VA* VR 
CPNTINUF 

IF {*0*8. CT. 7) WPITF (6*110) ITRIV*PFPE0*N7 
***** CHECK ACCURACY*STPN, AND LOOP RACK TO NEXT STATION IF 
***** STAPLE "ODE FOUND 
IF < HU M P • G 7 * 7 ) GO TO 11 
IF ( ( ARS { (FPFO-PEAl (XLAM))/FREQ> , L E • FPOTOL ),AND.AIMAG(XLAM).GT.O.OCnSAL 
1) CO TO 30 C 0S AL 

IF ( CARSC(FPEO-REAL(XLAM))/FREO),LE.FROTOU.AND,AIMAG(XLAN).LT.O.OCOSAL 

1) W»ITF (6*110) TTPIV,PFPEO,NZ COSAL 

IF (( APS UFPFQ-REAL( XL AN) )/FPEO),LE. FPOTOL). AND. A IHAG< XL AM ) . L T. 0. OCOS A L 
1) CP TO 11 COSAL 

***** COMPUTE WAVENUMBER CHANGE COSAL 

DLAM-RfAL ( VA )*CQS( PS I (1 )+PHI )+REAL( VB ) * $ IN ( P $ I ( 1 )*PHI ) CPSAL 

WVV-WWV1-(PFAL(XLAM)-FPF0)/PLAN COSAL 

IF (WIM.GT.4) GO TO 29 COSAL 

****** LIMIT WAVENUMBER EXCURSIONS COSAL 

IF (WWV.LT.0.7#WVV1 ) WWV-.7*WWV1 COSAL 

VVV-1.3*WWV1 COSAL 

COSAL 

COUNTERS* RESETS, AND COMPUTE NEW ALPHA , BETACOS AL 

COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 


COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

cnsAL 

COSAL 

COSAL 

COSAL 

CPSAL 

CPSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 


IF (WVV.GT.1.34WWV1) 
cpminue 

***** INCREMENT LOOP 
NU M R*Nti"e4l 
Al* A LPHA 
R1*PFTA 
WWV1 *WWV 

ALPHA- VUV*CQS(PST( 1) +PHT ) 

PFT A«WWV*SJN(PSI (1 ) ♦ PHI ) 

***** REFINE LOCAL METHOD GUFSS 
XLAM*XLA M +VA*( AL PH A- Al )+ VP* ( BET A-Bl ) 


481 

482 

483 

4 84 

485 

486 
4«7 

488 

489 

490 

491 

492 

493 

494 

495 

496 

497 
49« 

499 

500 

501 

5 02 

503 

504 

505 
5 06 

507 

508 

509 

510 

511 

512 

513 

514 

515 

516 

517 

518 

519 

520 

521 
5 22 

523 

524 

525 

526 

527 

528 


ORIGINAL PAGE IS 
OF POOR QUALITY 



146 


12 


30 

C 


31 

C 

c 

c 

c 


IP ( J° ASS • NE *0 1 60 TO 26 
60 TO 25 
CONTINUE 

***** PfCPMPUTE XL EN AMO SAVE 
XlfN(l )-2.*3.XA159*0ST7/UWV 

XlFNSAVXLEM(l) 

rst*av-psiui 

N V L FM-1 
MPSI-1 
COr.T INUE 
IF (ITPIV.ME.5) 

***** ITRiv • 5 
***** FRFOMfMCY 
***** COMPUTE NONDIMENSI PNAl FREOUENCY AND WAVE ANGLE WITH 
***** TP ALPHA AXIS 
FPFO-XMFPO(PFPFO»!IF(NZ)#OSTZ) 

P?ir-PST(ISAVF ) ♦ PH I 

Nl ,v P * 0 

PSini-PSID 


60 TO 36 

INITIAL STATION CONVERGENCE LOOP ON DESXPE 



GP 

TP 3^ 



32 

C A l 

l GLOBAL ( A * 

8 p A A * 8 

B*CC 


1 At 

pha,rfta,xi 

A M , CS P 

i 

33 

CONTINUF 




C A l 

l LPCAIU,0 

* A A * B B 

* c c * 


1 AL 

°H A * BE T A , XL 

AM, VA * 

VB * C 


IF 

( I P R . t o # o 1 

GO TQ 

35 


wpi 

TF (6,111) 

NUMB 9 P 

Sin* 


WR I 

TF Ut\?m 

ALPHA* 

BETA 

35 

cr> 

TIM L'F 




IF 

(NUPR.GT.71 

WPITF 

(6* 

C 

*♦* 

** TFSTS 




IF 

(NUPP.GT.7) 

GO TO 

11 


IF 

{ ( A 8 S ( ( F P E 0 

-PEAL( 

XL AM! 


1) r 

0 T9 37 




IF 

( ( A P S ( (FRFO 

-RE AL C 

XI AM 


1 ) w 

RITF (6*112 

) PFPEO*NZ 


IF 

( ( APS( (FOEO 

~RFAL( 

XL A« 


l ) r, 

0 TO 11 



c 

*** 

*♦ COMPUTE 

CHANGE 

IN 1 


OZT 

• WWV* (CPS ( PS 1 0 1 *R 

FA L ( 1 


RSI 

o-PsifWPEA 

L( XL am 

l-FRI 


IF 

( MUMP ,NF .0) 

GO TP 

36 

c 

*** 

*** LIMIT A 

NGL E E 

XC UR * 


IF 

(PSI0.LT..7 

* P S I D 1 

) PS 


IF 

( D SIP,GT.l* 

3 * ps i oi ) p: 

36 

CPN 

TINUE 




***** INCREMENT 

NtiMP-MUMR.fi 


COUNTER; RESET FOR NEXT ITERATION 


C 05 AL 
COSAl 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
CPSAL 
COSAL 
> COSAL 

COSAL 
RESPECTCOSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
CHSAL 
COSAL 
COSAL 
COSAL 

cns al 

COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
1 *GT.O.OCOSAL 
COSAL 
1 •LT.O.OCOS AL 
COSAL 
l.LT.O.OCPSAL 
COSAL 
CPSAL 
COSAL 
COSAL 
COSAL 
Cn$AL 
COSAL 
COSAL 
CPSAL 
CPSAL 
COSAL 


529 

530 

531 

532 

533 
5 3 A 

535 

536 

537 
5 36 
539 
5 AC 
5A1 
5A2 
5 A 3 
5 A A 
5 A5 
5A6 
5A7 
5 A 8 
5A9 

550 

551 

552 

553 
5 5 A 

555 

556 

557 

558 

559 

560 

561 

562 

563 
56 A 

565 

566 

567 

568 

569 

570 

571 
5 72 
573 
5 7 A 

575 

576 


l 
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A1 ■ A l PWA 

Bl-RFTA 

PSTP1-PSI0 

ALPMA«WUV4CaS(PStO) 

BETA .VWV*STN(PSTD> 

C ‘ ***** ofFlKF LOCAL METHOD GUESS 

XLAM.UAM + VA* ( ALPHA-A1 ) *VB* (BETA-81) 
IE ( J p ASS.NF.O) GO TO 33 
GO TO 32 
3? Cr^TlNUT 

c ***** prcnrPUTE PSI AND SAVE 

psi n ) • psip-phi 
PSISAV-PSI tl) 

Xtf HSAV-XlFN(l) 

NH PN.l 

NPSI-1 

38 CONTINUE 

C ***** OFSFTS 

AL>HA2«.ALPHA 
PET A ?* A FT A 
tiah?-xlam 

VA2-VA 
VR2 * V 8 


c ***** BRANCH to initial station n-factor COMPUTATION. 

GO Til 50 
39 CONTINUE 

IE (MP.NF.l ) GO TO 40 
C ***** np . i SETUPS 

XN-y ntn 
DST?«DST2 IN 

pfy-pevin 

PAPIUS-P ADTN 
AO CONTINUE 

C H A vp CHERYSHEV COEFFICIENTS 

CAU M A * XL G 
41 CPMTTNUF 

C ***** I T P IV - 1 CODE; INITIAL STATION PORTION 

c — make npndimensional freouency 

FPF0«XMFPQ(PFPE0#UE(N7), DST7 ) 
c ***** I«EGTN • 1 OPTION 


IF ; (IRFGTN.EO.O) GO TO 43 

IF ( ITPIP.EO.X , AND. ICON. NE.O) WAVE-VAVSAV 

I TP I p * 0 

PHI- ATAN(W(KPTS ) /U(^PTS) ) 

IF‘ ( IPSI . EO.l . AND, TCOHNT.EO.0 ) GO TO 42 
IF (ITYP.EO.O) CALL CPIT (PSICRIT) 

IF (TTYP.EO.O) D SI(1 J-PSTCRIT-PHI 
IF (ITYP.FO.l) PSKD-0.0 


COSAL 

577 

COSAL 

578 

COSAL 

579 

COSAL 

580 

COSAL 

581 

COSAL 

582 

C0S4L 

583 

COSAL 

584 

COSAL 

505 

cns AL 

586 

COSAL 

587 

COSAL 

588 

COSAL 

509 

CPSAL 

5 Q 0 

COSAL 

591 

c ns al 

592 

CPSAL 

593 

CPSAL 

594 

COSAL 

595 

COSAL 

5 96 

COSAL 

597 

COSAL 

598 

COSAL 

599 

CPSAL 

600 

COSAL 

601 

COSAL 

602 

COSAL 

603 

CPSAL 

604 

CPSAL 

605 

COSAL 

60 6 

COSAL 

607 

CnSAL 

608 

COSAL 

609 

COSAL 

610 

COSAL 

611 

COSAL 

612 

COSAL 

613 

COSAL 

614 

CPSAL 

615 

COSAL 

616 

CPSAL 

617 

COSAL 

618 

COSAL 

619 

COSAL 

620 

COSAL 

621 

CPSAL 

622 

CPSAL 

623 

CPSAL 

624 


ORIGINAL PAGE IS 

OF POOR QUALITY 



148 



14 


42 


43 

C 


44 

C 

45 
C 


C 

46 

C 

C 

c 


c 


CONTINUE 

ALowa.WAVF*CDS (*>SI CIHPHI ) 

BETA-WAV F*$IN(P$TC1> *phi > 

WPTTF (6,130) ALPHA, BETA, XLAH 

IF !! elTe (6,136 > W*VE,XC<Nn.NZ 

IF ( A I mag C vi A*) ♦LT.O.O) GO TO 10 

CPMInuf 

j*ASS*0 F1Mr ' fM,TlU TWP P0INTS 0N FPF0 CORVF FOR ITRIV . 1 
if (miMn.fo.n jpaf$.i 

CM L STARTUP (At.PH4,RETA,PEY,NC,EIGA,A,&, A A, B8 , CC » AC , WPRKC . 

lr Tp t 4 j' :<n4 ‘ 1, * tT * 0,C * OP ** IMAG<,( <-* K l).lT.O.O)GO TO 44 
C'«F T I N UF 

IF < I®Er.IN*:FO.O) GO TO 11 

f.r*rn ic 0P R4CK ANn REAP NEXT ST4TInN ” NO good mooes fpuno 

rrMINUF 

PFSFTS 

A L phai * ALPHA 

BETA] -BFTA 
V A 1 • V A 
VR1 « VR 
XI A * 1 * Xt-A M 
NCFP-0 

***** cPf<°rTE ESTIMATE FOR XLAM2 

rn A Tn'"! < l AM1+VA1 ^ f ALPHA2 ~ ALPHA 1 ) *V B 1MBETA2-.BETA1> 

1 i r 4 7 

Cot T IN OF 
Nl'VR-NUHR*! 

INITIAL STATION OPTIMIZER LOOP 
WRITE (6,148) 

VRITF (6,1?2) 

::::: maximize ^ufkatiw. r 4TE FO r 

IAz! VPzJJl ph3,be T 3?’ AlPHA1,BETAl ' XLA " 1 ' VA1 ' VB1,ALPH * Z,9ETA2 » XU " 2 

WRITE (f»l?7l ALPHA1,PETA1,XLAM1,VA1,VRI 

WPITF (F.127) ALPHA2,8ETA2,XLAM2,VA2,VR2 

***** P F S F T S 

ALPHA1-AIPHA2 

PETAJ.RFTA2 




COSAL 
COSAL 
COSAL 
CPS Al 
CPSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAl 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAl 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAl 
COSAL 
COSAL 
COSAL 
• VCOSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 


625 

626 

627 

628 

629 

630 

631 

632 

633 

634 

635 

636 

637 
6 3 6 

639 

640 

641 

642 

643 

644 

645 

646 

647 

648 

649 

650 
6 51 
652 
6 53 
6 54 
6 55 

656 

657 
6 58 

659 

660 
661 
662 

663 

664 

665 

666 

667 

668 
669 
6 70 
671 
6 72 


P 

-o 

ys> 

0 

1 pn 

Is 
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15 


C 

47 


48 


C 


4 *> 


50 


C 

C 


51 


C 


AL PHA2»ALPH2 

COSAL 

673 

BETA2-PFT3 

COSAL 

674 

XL A*l-Xl AM2 

COSAL 

675 

VA1-VA2 

COSAL 

676 

VP1 *V4? 

COSAL 

677 

***** PE F INF LOCAL METHOD GUESS 

COSAL 

678 

XI A^2-XLAM?*VA2*< AL PHA2-AL PH Al ) +VB2* < BE TA2-B ET Al ) 

COSAL 

679 

CPMTNUF 

COSAL 

680 

IF (IGL n B.FO*2«OR*IGLPB«EO»3) JPASS-0 

COSAL 

681 

IF (JPASS.NF.O) GO TO 40 

COSAL 

682 

CAt l Ptr»AL( A,B, AA,BR,CC,AC,EIGA,WORKC>NDlM,MG>NG*IR,IC* 

COSAL 

683 

1 Al PHA2, RETA2*XLAM2*CSP) 

COSAL 

684 

CAt l t r C A L ( A,R, AA,BB,CC* ULMIWRK, VV * VW»K , M, NC * IR* IC, 

COSAL 

685 

1 AL PWA2»PrTA2» XL AH2, V A2 , V* 2 , CS P , WORK ) 

COSAL 

6 86 

TFSTS 

COSAL 

687 

IF (NUMP.fO.O) GO TO 46 

COSAL 

680 

IF C APS( (FPFQ-REAl (XL AM2) ) /FREQ) • L E . FP Q TOL . ANO. A B S < G2) .LT.2.E 

-5) GCOSAL 

689 

10 To 49 

COSAL 

690 

IF (NOM«,GT.?) WRITE (6,137) 

COSAL 

691 

IF (NUM9,GT.7» GO TO 40 

COSAL 

692 

GO TO 46 

COSAL 

693 

CT k: TINUr 

COSAL 

694 

WOITF <6, 148) 

COSAL 

695 

WPITF (6,123) NZ,XC(N?) 

COSAL 

696 

COMTNUF 

COSAL 

697 

'IF ( ITRIV.F0.4*0P.ITPIV.E0.5.0R.ITPIV,E0.6> WRITE (6*151) NZ, 

XC ( NZCQS AL 

698 

1 ) 

COSAL 

699 

WRITE (6*127) ALPHA2,BFTA2,XLAM2,VA2,VP2 

COSAL 

700 

***** F X I T IF INITIAL STATION OPTIMIZER CAME UP WITH A 

COSAL 

701 

****** STAPLE MODE THPFE TIMES I N A ROW 

COSAL 

702 

IF (AIMA6(XLA«2).GT.0.0) GO TO 51 

COSAL 

703 

NPP5 *N D 0 C >1 

COSAL 

704 

IF (NPPS.LT.3) WRITE (6, 113) 

COSAL 

705 

IF (N»0S,EC.3) W° I T E (6,135) 

COSAL 

706 

IF (NP0S.E0.3) CALL EXIT 

COSAL 

707 

IF (IBFGIN.FO.O) GO TO 11' 

COSAL 

708 

GO TO 10 

COSAL 

709 

CONTINUE 

COSAL 

710 

Nprs«o 

COSAL 

711 

IF (NSTAT.FO.O) CALL EXIT 

COSAL 

712 

IF (MTNTFG.FO.O) GO TO 57 

COSAL 

713 

IF (MINTFG.ME.1 ) GO TO 52 

COSAL 

714 

***** INITIAL STATION N FACTOR COMPUTATION 

COSAL 

715 

ARG1-0.0 

COSAL 

716 

ARG2«4IMAG(XLAM2)/S0RT( (REAL (VA2>) **2+ (REAL (VB2) )**2)/DSTZ 

COSAL 

717 

XN-0.0 

COSAL 

718 

DS*PADIUS'*TH C TA(NZ) 

COSAL 

719 

XN-XN*(APCl*APG2)/2#*nS 

COSAL 

720 


o o 

-n g 

T3 0 

SP 

2 s 

33 |— 

<0 10 
Cl > 
> S 3 . 

r* r*3 


;ia 
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694 

1VS0D 

«2WVTX)9VkIVUlV 

494 

1VSQD 

65 Oi 09 ( X**O3*9N*GNV*X0X*Od*bdN)dI 

994 

1VSGD 

ZddI*20N«ddN 

594 

1VSUD 

65 Ul G9(2*Od*b3HDl)dI 

*94 

1VSUD 

AdVSSBDdN dl M»M 

£94 

1VSU0 

SiNlOd 3Q ON dQ «38WflN 3SV3dDNl ONV ADVdflDDV NOIAfnOS *D3hD ***** 

294 

1VSUD 

3UN UnJD 

T94 

1VSUD 

dOOl NQIlVindNOD NIVU AdVAS ***** 

094 

1VS0D 

SOI OV a »2d 

654 

1VSUD 

85 OA 09 ( 0 * 3N * ANOO DI ) dl 

854 

1VS0D 

dllhlAMJD 

464 

TVSuD 

♦ * * **♦ 

954 

IvSOD 

(T ■ Aldll dOd) dUiVWIiS3 3mVAN39I3 N011V1S AX 3 N ***** 

654 

1VS0D 

******* 

*54 

1VSUD 

{ £ * I tf 5 ) di I art 

£54 

XVSUD 

N X * Z N (?>1*9) 3AId« 

254 

1VSGD 

(6*1*9) JildA 

154 

1VSGD 

03ddd* 44 562*45*1 Hd <f 44562*45*(T)ISd*Qd0HD/( t)N31X (-711*9) BAldA 

054 

1VS0D 

DVdN*(<*AAI-X)*9e>6T*t * 6 + 1 H o- ( 2VHolV/2VA5b) ,iv i V * ( I) I Sd 

6*4 

lv SOD 

2-DVdN CO* A V2vi3b *aNV * *0*A9*2VHd IV >dl 

9*4 

1VS0D 

O-DVdN ( *0* AD*2VAdb*UNV e *0*AJ*2VHd1V) dl 

4*4 

1VSQD 

X * DV d N 1 l *0*i V2Vidb*(JNV * fl 0*AC2VHalV)dl 

9*4 

1VSUD 

X-DVdN ( *0*AD*2Vi3d *UNV •*0*11*ZVHd IV )dl 

5*4 

TV SOD 

(2**2VA3b*2**2VHdTV ) id OS / Zi S 0* 65 T * l * £ * * 2- ( t ) N J IX 

**4 

IV SOD 

( (S‘Ad)i)n/(SAd>«)n)NVAV-lHd 

e*4 

1 V SOD 

95 ui U9 ( X * 3u*A I a A I ) dl 

2*4 

1 V SLID 

ZAS0/65X*X*£/*2/(2N)3n*(2kV1X)lV3d-03dda CCOCAidAl) dl 

1*4 

TVSUD 

29a V ( SXX *9) dilaA 

0*4 

1VS0D 

ANIdo SiinS3d NUIAVAS lVIAIlil ***** 

664 

IVSuD 

dMNliNOD 

964 

TV SuD 

2«dN 

464 

1VS0D 

ZASQ/ ( 2**( ( 29A ) 1 V 3d )*2**((2VA )1 V3 d ) ) id OS / < 2k v IX > D Vw I V- 2 Jd V 

9E4 

1VSUD 

NI NX *NX 

56 4 

TV SOD 

dflNli <UD 

*6 4 

TV SOD 

65 UA UD 

£64 

1VSUD 

SQ**2/(29dV*X9dV)<MA«9X 

2E4 

lVSuD 

l(X-ZN>tfAdHA-(ZN>ViJHA)*2d*S<J ( 0 * 3.M * ANfrU DA ) dl 

16 4 

TV SOD 

( (Oc3ZN) VidHA-C ZN) VAdHA)*SlUUVd-SO 

0E4 

IVSuD 

0*0- (OddZN) VA3HA <2*Od*0d3ZN> dl 

624 

1 V SOD 

ZASQ/ (2**( (28A)lV3d) *2**( (2VA) TVdd) )AdOS/( 2k V TX > 9V nl V • 2 JdV 

824 

IVSUD 

0*Q-X*JdV 

424 

1VS0D 

0* 0*NA 

924 

1VS0D 

X-Z N* Od 3 ZN (2*03*crU dl 

524 

1VS0D 

dOMANUD 

*24 

IV SOD 

*5 UA 09 

624 

1VS0D 

£5 OA 09 <2 # 03*dN*QNV*2*03*9dANXN) dl 

224 

1VS0D 

£5 UA 09 ( 0*03® HN*UNV *2 *03 *9dANlN) dl 

124 

IVSUD 

3UN1AH0D 


D 

D 

85 

D 


4 5 
D 
D 
D 


95 


D 

55 


*5 


£5 

25 


91 


150 



CXL1-.001 


COSAl 

769 

IF? AlXL.GT.CXll)Gn TO 59 


COSAt 

770 

CXL2-.0005 


COSAL 

771 

CX13-.0003 


COSAL 

772 

CXL4-.0001 


COSAL 

773 

WPTTF (6.139) 


COSAL 

77* 

I*C AIXL.LE.CXLl •AND.AIXl . GT . CXL2 ) N ADD-5 


COSAL 

775 

IF Um.l F.CXl?. AND. AlXL.GT.CXL3)NA0n.l0 


COSAL 

776 

IF 1 ? A I XI .If .CXt 3. AND.AIXL.GT.CXL4)NA0D-15 


COSAL 

777 

I*,( ATXl.tT.CXL<r)NAD0-20 


COSAL 

778 

NC »N f + ? *N ADD 


COSAL 

779 

NPP -NC4?*IPPZ 


COSAL 

780 

IF{K'PP.r,T.ioi)NC-101-2*IPRZ 


COSAL 

781 

NP-wr^NAOD 


COSAL 

782 

IF(NG.GT.41)Nf-«41 


COSAL 

783 

IF(Nf..GT.33)*G-4 


COSAL 

784 

IF (Noe. RE. 1011 WRITE (6.138) 


COSAL 

785 

TFUr.F0.41)WPITF{6>I3P) 


COSAL 

786 

JPA5S-0 


COSAL 

787 

CP?) TIN UF 


COSAL 

788 

IF ( ITRTV.F0.4.np # ITRIV.E0.5.0R*ITRIV.E0.6) GO TO 

61 

COSAL 

7e9 

***** FOP ITPIV • 1# SAVE PROFILES AT CURRENT STATION 

COSAL 

70Q 

K$ AV-KPTS 


COSAL 

791 

OP 60 J ■ 1 » K PTS 


COSAL 

792 

XSC J >-Y( J) 


COSAL 

793 

use j )-u(jj 


COSAL 

794 

USlCJ)-lll(J) 


COSAL 

795 

US2 ( J ) -U2 ( J ) 


COSAL 

796 

USU J -W( J) 


COSAL 

797 

VSI(J)-VIU) 


COSAL 

798 

WS2 < J ) -W2( J ) 


COSAL 

799 

T5CJ ) - T C J) 


COSAL 

800 

T51(JI-T1(J) 


COSAl 

801 

T$?( J)-T2(J) 


COSAl 

80? 

c r 6 T T N u F 


COSAL 

803 

R$ A V * R 2 


COSAL 

804 

PFY1-PEY 


COSAL 

8C5 

XhCHI-HACH 


COSAL 

806 

-™pp An NF XT STATION 


COSAL 

807 

APf-1 -APC2 


COSAL 

808 

CALL FtPW(HSTART#N2) 


COSAL 

809 

RFYTF M P*°FY 


COSAL 

810 

D$TZT*P*PSTI 


COSAL 

fill 

XKTF ‘■‘P-v* ACH 


COSAL 

612 

rETfPMTNE INTEGRATION PATH AND SCALE REYNOLDS 

NUMBER ANO 

COSAL 

813 

DISPLACEMENT THICKNESS 


COSAL 

814 

IF; (MNTFC.FQ.O) GO TO 62 


COSAL 

815 

WPITF (6.147) NZ.RSAV.PEYTEMP.DSTZTMP.MACH 


COSAL 

816 
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1VS03 

€90 

mao 

298 

IVSUD 

I9tf 

IV SOD 

098 

1 V S 03 

658 

IV SOD 

658 

1 V SOD 

£50 

1VSU3 

958 

IV SOD 

659 

1VSOD 

*5 9 

1VS0D 

E 5 8 

1VS0D 

258 

1VSCD 

168 

1VS0D 

059 

IVSUD 

6*8 

1 V SOD 

8*0 

1 V SOD 

£*8 

IV SOD 

9*9 

1VSUD 

5*9 

1 V SOD 

**9 

IV SOD 

E*8 

TvSOD 

2*8 

1 V SOD 

X *8 

IvsuD 

0*0 

1VSUD 

6E0 

1 V SOD 

8E8 

IVSUD 

£E9 

IV SOD 

9E0 

IVSUD 

5E8 

IVSUD 

*E8 

IVSUD 

EE8 

1VS0D 

2E8 

IVSUD 

IE 8 

1 V SOD 

0E8 

1VSU3 

620 

1VSU3 

820 

IVSUD 

£2 9 

IV SOD 

928 

IV SOD 

528 

IVSUD 

*28 

IVSUD 

E28 

1VS0D 

228 

IVSUD 

128 

IVSUD 

020 

IVSUD 

6X8 

IVSUD 

8X8 

IVSUD 

£10 

1VS0D 


3 flN I JL*'4 J J 

(I)21-U)2S1 

(nu«(nxsi 

IDlMDSi 
CI)2rt«U)2Srt 
(I ) trt-u ) ISA 

U) 2 n-m 2 sn 

(Din-misn 

(i)i)>(n»n 

t I ) A ■( 1 ) rfX 
SldX ' l • I ^[^ DO 
S Ad x • a k JA X 
dt'MIlNU D 

( (I)2S1*(I)2k1)*I*4(I)2SA s (1) 281 

( (i>Sl-( I)ui )*!* + ( US1*< I)xi 

( t i) 2 s«-( newn)#x* + ( i ) { i ) *** 

( { I MS«-( 1 i t hrt )♦; •♦(!) ISrt - u J li4rt 

C ( I ) ZSfl- ( I ) Znll ) *X * 4 ( I ) 2 Sii* (I ) cWfl 

i(l) tsn-c I) 1*0 >* 1*4(1 ) TSii* ( I , Irtfl 
{ ( n sn-( i ) hiu *t t i ) sn - < i ) wii 

AVSX'IM HZ JU 
t AVSX« 21 n 1«$X 'SAdX‘21 ‘A'E^O) INI IS8 11 0 
( AVSX'tkl'SX'SldX* II «A *E 4 C}lNl isa no 

(Avsx^wi'sx'sidx'i'A'e'oixnsti nvj 

CAVSX'2hrt'SA'ild**2A # A # e'0)lNn:>y 11V3 
(AVSVU^SX^id^lMA'^OllNtl^ n?3 
(AVSM*wfl # SX # bIdX*W # A # E < 0HNl1SW 117 3 
(AtfS x 4 2k0 4 Sx 4 $idX « 20 'A 6 E tf u ) x.UlSb 11V 3 
iA7Sx 4 Iwn*$X < SAdA 4 l0 4 A <, E 8 0)lNt1S(i 11V3 
(AVSx 4 kn'SA 4 SldX 8 rMA tf e 4 0>lNl1S9 1 1 v 3 

( AV S X ) SX *10000 *I»($AdX)A({AV$X)SX*31* < SldX) A)dl 

dlldLdd Q aDVlaS IU AN33ddo Ot dlVddD 

illdOdd a ID dU 01*9 OlNO Sliduad 3lvluddJANJ 

99 01 09 (9 , 0d*AlaiI*d0*S*03*AldlI e aU***Od*AIdlI ) dl 
t ItlM i 4J3 

(lhd4(l)ISd)MS*<I)N3lX/ZASG*t»iId # £**a»2vlJd 
(lHd + (X)ISd ) SOD* ( I)N3lX/XASG*65X*t e E**2*2Vrid1V 
((Sld>)n/<SldXM)NVAV-Irid 
29 01 09 (*° JN*AldAi) dl 
SO'flU <S*C'9) d A I drt 
ZASO 'Ada '2d'ZN <9*1 *9) ilidrt 

(zisa'Aad'aa'dwizisa'dwsiAad'Sfiiava) onvu no 
<Sa 4 aa 8 2*‘HHi'AvSe‘29A 4 2vA> XoVxvk 11V3 
i I~2N)V13Hl-(ZN>V19HA-HHi 
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KPTS-KSAV 

COSAL 

865 


DO 213 I*1,KSAV 

COSAL 

8 66 


Yd)»xsm 

COSAL 

867 


u<n»ij*(n 

COSAL 

868 


uim-unm 

cnsAi 

869 


U2 t T ) * U M 2 ( I ) 

COSAL 

e70 


W ( T ) * W M ( T ) 

COSAL 

871 


VI ( I ) » W M ) ( T ) 

COSAL 

872 


U2(T)»um?{I) 

COSAL 

8 73 


T(Ii-TM(I) 

COSAL 

874 


Tim-TMim 

COSAL 

875 


T 2 ( I ) »TM? (I ) 

COSAL 

876 

213 

C n N T TNMf 

COSAL 

877 

C 


COSAL 

875 


PFV2-PFY] ♦ .1MPEY-PFY1) 

COSAL 

879 


YMArn-x«CMi*.i* { *ach-xmchi ) 

COSAL 

880 


YMACH»V M ACH*XMACM 

COSAL 

881 


ptfhp-pfy 

COSAL 

882 


pey - c e y? 

COSAL 

883 

C 

y A KF CH6*Y$MFV C OF FF IC If NTS 

COSAL 

884 


TAIL MAKXtG 

COSAL 

885 


Xt A* A- XL A^2 

COSAL 

686 


CALI LOCAL ( A, 5, A A, RR,CCf UU#UWRK,VV»VWPK,M,NC# 

IR#1C, COSAL 

887 


1 At <>HA2» R6TA2 > XLAM2* VA2, VR2,CSP, WORK) 

COSAL 

889 


PE v.p tpmp 

COSAL 

859 


X MAC H« X M T E MP 

COSAL 

890 

C 

— MAvf DERIVATIVES 

COSAL 

891 


DWC S ■ ( XL AM?-Xl AM4) /(XC(N7>-XC <NZ-1> )*10. 

COSAL 

892 


xCam—PFAL (PWOS)*(XC(N 7)-XC(NZ-l) )/( < RF AL < V A 2 )) **2 + < RE AL < VB2 > )**2) COSAL 

893 


AA0*XG AMAPF At ( V42) 

COSAL 

894 


RRO-xr,A M *PFAL{VP2) 

COSAL 

895 


AL.PMA2- ALPHA2* AAO 

COSAL 

895 


PET A?-«FTA? + PR0 

COSAL 

897 

c 

***** FYTPArnLATE FT GFNVAL UE FOP NEW STATION 

LOCAL METHOOL ITRIV-1 JCHSAL 

898 


XLAM?.XLAMA+DUPSM XC (N 1 >-XC ( NZ-1 ) ) ♦VA 2* AAO +V B2* B BO COS At 

899 


KPTS-KTFMP t 

COSAL 

900 


DO 214 I-lfKPTS 

COSAL 

901 


Y t I ) * XM { I ) 

COSAL 

902 


UU)-USU) 

COSAL 

903 


111 C I »-USl < I » 

COSAL 

904 


U2t I J-US2U ) 

COSAL 

905 


V(I) -VS t I) 

COSAL 

906 


wim-wsim 

COSAL 

907 


W2(T)»WS?(I) 

COSAL 

908 


TU)-TS(I) 

COS Al 

909 


Tiu>-Tsim 

COSAL 

910 

214 

T2(I>-TS2III 

COSAL 

9U 

66 

CT^'T I NU E 

COSAL 

912 
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20 


C 

67 

C 


68 


69 
C 

70 


C 


71 


72 

C 


C 


) 


CM l MAKXLG 

kph-dimenstonal frequency 

IF (ITPIV.F0.4) GO TO 67 

FPFO-XMrp 0( p F Q FO#UE(Nn , nsTZ) 

CONTINUE 

IF UTPIV.NE.5.ANO.ITPIV.NE.6) GO TO 74 

***** PAKP NPW STATION WAVE NUMBERS AND ANGIES 

Nl'NP-0 

WVV«2.*3*14159»DST7/Xl FM «1 ) 

PHI *ATAN(V(KPTSI /tJ(KPTS) ) 

IF (ITPIV.NE.5) GO TO 74 
IF (ITYP.NF.01 GO TO 6P 
CAtl CPIT (PSTCPIT) 

PSI ( 1 ) - P S ICP IT-PHI 

CONTINUE 

PS I0*° SI ( 1 H-PHX 

IF HP P7.F0.O) GO TO 69 

19577 F (6,116) EN < 1 > /CHORD, PSI (1) *5 7.29577, PH I *57 . 29577, PS ID* 57 ( 

CONTINUE 
JP A * S * 0 

***** TTPIV « 5 LOOP 

CONTINUE 

A] - At PHA ? 

Pl« °FTA2 

At PWA2-WWV4C OS ’PSID) 

RFTA?«wwv*SlNfP$TD) 

***** PFFRF LOCAL *FTHOD GUESS 

IF < MIHP.NF.O) XL AM2-XLAM2 + VA2*( 4L PH A2-AI )+V B2* ( BE T A2~B 1 ) 

IF (J°ASS.tF*0) GO TO 71 11 

CAtl ClPPAl (A,R, AA,RB,CC,AC,EIGA,W0PKC,NDIM,MG,N6,XR,IC, 

1 At PHA2, pf: TA 7 #XLA s <2»CSP) 

CPNT INUF 

CAtl inCAL(A,B,AA,B8,CC,UU, LUrfRK »VV,VVRK,M,NC,TR,XC, 

1 AtPMA? # p E TA2*XLAM2 > VA2#VR2,CSP#W0RK) 

IF t IPP7.F0.0i GO Tn 72 

WPTTF (6,111) NfjMR p PSID*57.2 95 77 

WPITF (6,127) AL PHA2 , BET A2# XL AM2, VA2, VR2 

CONTINUE 
***** TFSTS 

IF <ARS({FPF0-PFAL(XLAM2,, /FRE0 ).LE.FR0Tni> C*0 TO 73 

IF IMIH.CT.7) GO TO 7? 

IF ( AIHAGt XLAM2 ) .LT.O.O. AND. NUMB. GT.3) GO TO 73 
***** lipdatf LOCAL WAVE ANGLE 
DZT«wyV*(CrS(PSin)%PEAL(VB2)-SIN(PSI0)*REAL( VA2) ) 
PSTO-PSIO-tPEAL(XLAM2)-FREO)/DZI 

NUHB •NUMR+i 
GO TP 70 


COS Al 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
2C0SAL 
cnsAi 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 


913 

914 

915 

916 

917 

918 

919 

920 

921 

922 

923 

924 

925 

926 

927 

928 

929 

930 

931 

932 

933 

934 

935 

936 

937 

938 

939 

940 

941 

942 

943 

944 

945 

946 

947 

948 

949 

950 

951 

952 

953 

954 

955 

956 

957 

958 

959 

960 


o o 

•o S 

o 2 

O 3* 

x r 

O “0 

c > 

(D 

C |VJ 



21 


U1 

ui 


c 

73 

C 

7* 


75 

C 


c 


76 


77 

C 


c 


c 

78 

79 

C 

C 

C 

90 


81 


♦*.**♦ L00*> PACK FDR NEXT ITERATION 
CONTINUE 

***** ^AKE NEW WAVE ANGLE WTTH RESPECT TO LOCAL FREE STREAM 
psm>«R$io-PHi 

CONTINUE 

IF (TTPIV*NF*6) GO TO 79 

JPASS-0 

CTMTINUF 

***** ITRIV • 6 LOOP 
Al-At »MA2 
Bl-PFT A2 

Al 0MA2*UWV*CnS («>Sm )^PHI) 

PFTAT-WWV^SINI PSIU ) ♦PHI) 

***** p F F I ► * E LOCAL METHOD GUESS 

IF (MJ^P.NF .0) XLAM?«XLAM2*VA2* ( ALRHA2-A1)4VB2*( 8ETA2-81) 

IF (JPASS.NF.O) GO TO 76 

CAl t GLOPAI (A,P* A At BP*CC* AC# E IG A* VOPKC * NO I M> MG#NG* IR* IC# 

1 Al PHA?*PFTA2, XLAM2 # CSP) 

CONTINUE 

CALL L0rAL(A,8,AA* BP *CC * UU* UWPK* VV# V WRK » M, NC # I P * 1 C # 

1 AlPHA?,PETA2*yiAM7,VA2*V B 2*CSP*VQPK> 

IF (TPP7.EO.0) GO TO 77 
WRITE (6*117) NU^R*VVV 

WPTTF (6*127) ALRHA2*Pf TA2* XLAM2* VA2*VB2 

Continue 

♦ * * ♦ * JF S T ? 

IF (AR$< ( FP F 0-R E AL (XL A M2 ) ) /FR EQ ) «L E • FPQTOl ) GO TO 78 
IF (KJMP.GT.7) GO TO 78 

IF ( AImaG(XL A*2) .LT.0.0.AN0.NUMB.GT.4) GO TO 78 

***** UPTATE WAVFNUMREP 

01 Am.pf al ( VA2 ) *COS ( PSI ( 1 ) +PHI ) +PE AL ( VB2 ) +S IN ( PSI ( 1 ) +PHI ) 
WVV»WWV-(PFAL( XLAM2)-FRE0) /PL AH 
NUNR*nump*i 
GO TO 75 

***** COMPUTE NEW PHYSICAL WAVELENGTH AT CURRENT STATION 
UFN(1 )-2**3.14159*DSTZ/WWV 

CONTINUE 

IF (TTPTV.F0.5.QR.ITPIV.E0.6) GO TO 97 

***** 1 T(? ™ - l; GENERATE TWO POINTS CLOSE TO FREO CURVE TO START 
***** NEW STATION OPTIMIZER 
-- — ^IPST POINT 
ICFSS-0 

IF (IGL0P.E0.2) JPASS-0 
IF (JPASS.NE.O) GO TO PI 

CALL GLOBAL (A, P* A A * P p * CC * AC# E IG A # WORKC * NDIH# MG* NG* IR# IC# 

1 At PHA2*BETA2*XLAM2f CSP) 

JPASS-0 

C^IL L DC A l (A*p » A A* RB*CC* UU*UWPK* VV# VVR K # M# NC # I R # IC# 


COSAL 

961 

COSAL 

962 

COSAL 

963 

COSAL 

964 

COSAL 

965 

COSAL 

966 

COSAL 

967 

COSAL 

968 

COSAL 

969 

COSAL 

970 

COSAL 

971 

COSAL 

972 

COSAL 

973 

COSAL 

974 

COSAL 

975 

COSAL 

976 

COSAL 

977 

COSAL 

978 

COSAL 

979 

COSAL 

980 

COSAL 

981 

COSAL 

982 

COSAL 

983 

COSAL 

904 

COSAL 

905 

COSAL 

986 

COSAL 

987 

COSAL 

988 

COSAL 

909 

COSAL 

990 

COSAL 

991 

COSAL 

992 

COSAL 

993 

COSAL 

994 

COSAL 

995 

COSAL 

996 

COSAL 

997 

COSAL 

998 

COSAL 

999 

COSAL 

1000 

COSAL 

1001 

COSAL 

1002 

COSAL 

1003 

COSAL 

1004 

COSAL 

1005 

COSAL 

1006 

COSAL 

1007 

COSAL 

1008 
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zz 


1 AIPHA2#AETA2,*IAM2*VA2,VB2,CSP>W0SK) 

IF (ITRTV.F0.9) GO TO 97 
IGFSS-IGESS*! 

IF CIPP7.F0.0) GO TO 82 
WPTTF (6,129) IGESS.XLAM2 
82* CCINT TMIIE 

C ***** 

C ****** 

IF 
IF 

PVA-PFAL (VA2) 

PVF-PEAL ( VP2) 

AVA- A!MAG< VA? ) 

AVP- A I Mif, (VR2 > 

SPr=PVA**2*PVP**2 
AtPHA2»ALPHA?*PVA*(FPFO-»EAl(XtAM2))/$pD 
BET A2-PETA2*PVB*(FPEO-PE AKXIAH2) ) /$PD 

GO TP 80 
83 CONTINUE 

C 5FC0N0 POINT 

WAVF*ALPH/2**?*BETA2**2 
PVA*P- AL (VA2 ) 

PVR-PE At ( VP 2 ) 

IF < A*S(RVA>.GT. ABS(RVfl)) GO TO 89 
S».05*SOPT (WAVE ) / ft V3 
GO T n P5 

89 S- . 05* SORT ( W4VF ) /R VA 

85 At PH A 1 • AL PHA?-S * ft V8 
PPTA1»PFTA2 + $*P'7A 

jcr's-o 
n Af-l - XI AM2 

86 IF (TGIP°,F0«2) JPA$S*0 
IF (J»ASS.NF*OS GO TO 87 


COSAL 

1009 


COSAL 

1010 


COSAL 

1011 


COSAL 

1012 


COSAL 

1013 


COSAL 

1019 


COSAL 

1015 


COSAL 

1016 


COSAL 

1C17 


COSAL 

1018 


COSAL 

1019 


COSAL 

1020 


COSAL 

1021 

o o 

COSAL 

1022 

-n gj 

COSAL 

1023 

s 

COSAL 

1029 

VJA 

COSAL 

1025 

o z 

COSAL 

1026 

o > 

COSAL 

1027 

7 * r - 

COSAL 

1028 

iO U 

COSAL 

1029 

c > 

COSAL 

1030 

O 

COSAL 

1031 

r M 

COSAL 

1032 

13 ^ 

COSAL 

1033 

3 ea 

COSAL 

1039 


COSAL 

1035 


COSAL 

1036 


COSAL 

1037 


COSAL 

1038 


COSAL 

1039 


COSAL 

1090 


COSAL 

1091 


COSAL 

1092 


COSAL 

1093 


COSAL 

1099 


COSAL 

' 1095 


COSAL 

1096 


COSAL 

1097 


COSAL 

1090 


COSAL 

109 9 


COSAL 

1050 


COSAL 

1051 


COSAL 

1052 


COSAL 

1053 


COSAL 

1059 


COSAL 

1055 


COSAL 

1056 



87 


88 

C 


1 '* llbaiia,b,AA,0R,CC>AC,ETGA,WORKC,NDIM, MG,NG, IR,IC, 

1 At PHA1.BFTA1, XtAiUCSP) 

CAtl IOC AL C A^P # AAtBB » CCf UU» UWPK#VVfVWftK,M*NCf IP* IC* 

1 At PHA1 # PETAI, *IAH1,VA1,VB1#CSP*W0RK ) 

JGFSS-JGFSS+l 
IF ( IPP7.FC.0 ) GO TO 88 
VPTTF (6,125) JGFSS,XLA*l 
CONTINUE 

***** J TOP SET TO ONE IN DATA STATEMENT*— IF USER NEEDS MQftl 
***** TTFPATinNS. DATA STATEMENT CHANGF IS NECESSAPY 
IF ( JG ESS .FO. JTO°) GO TO 00 

IF ( ABS< ( FPEO-PFAL (XLAM1 ) ) /FREQ ) *LE* FROTOL) GO TO 89 
PVA-PEAL(VA]) 

RVR *PE AL ( VB1 ) 

AVA- A I MAG ( VA1 ) 


T in ONE IN DATA STATEMENT- 


•ir Uit-K NEI:D5 MORE 


ITFPATIONS,DATA STATEMENT CHANGF IS NECESSAPY 
(IGESS.EO.ITOP) GO TO 83 

(ABS((FPFO*ftEAl(XlAM2n/FREO).LE*FPOTOL) GO TO 83 
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1011 
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6601 
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*601 
£601 
2601 
1601 
0601 
6*01 
8901 
£801 
9801 
5801 
*901 
£801 
2801 
IdOt 
0801 
6 £ 0 1 
0 £ 0 1 
££0 1 
9 £ 0 t 
S£01 
*£ 0 1 
££0I 
2 £ 0 t 
l £0 1 
0£0 1 
6901 
8901 
£901 
9901 
5901 
*901 
£901 
2901 
1901 
0901 
6501 
8501 
£501 


TVSOD 

TVSUD 

TV SOD 

TVSUD 

TVSUD 

TVSUD 

IV SOD 

TVSOD 

TVSOD 

TVSOD 

TVSUD 

TVSUD 

1 V SO D 

IV SOD 

TVSUD 

TvSUD 

TVSUD 

IV SOD 

TV SOD 

TVSOD 

TVSuD 

TV SuD 

1VS0D 

TvSUD 

1 V SOD 

1 V SOD 

TV SOD 

TVSUD 

1 V SOD 

TvSUD 

TVSUD 

1 V SODA 

TV SOD 

TV SOD 

TVSUD 

TV SOD 

TVSUD 

TV SOD 

TVSUD 

TVSUD 

TVSOD 

TVSUD 

TVSUD 

TVSUD 

TVSUD 

TVSUD 

TVSOD 

TVSOD 


2Vi3d»Ivl^3 8 
2VHdTV» IVHd TV 
Si3S3a 

jilNXl iUD 
lo 01 00 

(xa0A*dSD*i8A*ivA*invTx*m3d*ivHa iv t 
*Di'ai'DN*w*xaAA*AA*>iartn*nn*DD*db*vv*b*v>TVDUT ttvd 

(oSD*IwVTX*IVidd*lVHd IV 1 

«Di'ai'9N'9w'wiaN«DxaoA*v9i3*Dv*DD'88*vv‘d‘v) tv«uto t ivd 

*6 01 00 (0* 3N " SSVdD 31 
O-SSVdT (2*0d*8uT9I) dl 
VAd*S*2vi3d* tvidd 
8Ad*S-2VHd 1V*l/hoTV 
vAa/ ( 3Avn)idOS*tO'«S 
£6 J1 UO 
8Aa/ ( 3AVrt)ldOS*lO’»S 
26 01 09 ( (8Ad)$8V*i9MVAa)S8V) dl 
( 2d A ) Ty 3d -dAd 
( 2 VA ) T V 3d ■ VAd 
2**2V13b+2**2VHdTV«3AVA 
5b U1 U9 ( * # C3 " id IH SI ) dl 
OOt-ttwiTN (* # 03*idihSI ) dl 
(021*9) dlldrt (**03*ldlHSI ) dl 
(121*9) dildrt 
UldlMSl-ldlMSI 

IdlHS 1 X3UNI daGd d d d 

56 Oi 09 ( 0* 03 * INI Ud 1 ) dl 
I ■ 1MI0 d I C5*0*19* (H/NH) S8V ) dl 
O-lNludI 

3DVdS VI 38— VHd TV NI N0UD3dl() 601D3A 1*31 

„ (£ldS*£HdTv*28A*2Vl 

*2HVTX*2V130*2VHdTV *ttiA*lVA*trfVTX*m38*lVHdTV *03dd > IVWildO T1VD 

jONUWJD 
0*ldlHSI 
bwON (921*9) dild* 

( 8 7 l * Y ) dlldA 

l*d*ON» d«ON 
dONllMUD 
ADN3MD3dd ***** 

TVDISAHd 03X13 803 N01 IV D IdlTdHV 3ZX4IXVM 1 - Aidli m*** 

dOOT ddZIWlidO DDDDDJDD 

0 » b *I()N 
3 1 IN 1 190 D 
93 01 09 

OdS/ ( (1NVTX) TV3d-03d3)*8AatlV13b-lV13d 
QdS/( (1WVTX) TV3a~03ad )*VAd^XVHdTV»XVHdTV 

2**8Ad + 2**VAd-vidS 
( I8A) 9VNIV-8AV 


D 

56 

*6 


£6 . 
26 


D 

D 

16 


06 

D 

D 

D 

68 


£2 
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ALPHA2-AIPM3 rf1 SA! 

BSTAP-RFT3 . CPSAL 

xiA^i-yiAP? COSAI 

VM-VA2 COSH 

VP1-VR2 COSAL 

TF (TGL0B.F0.2) JPASS-0 COS^ 

MM * PFFIKF F 7GFMVA LUF GUESS FOR LOCAL METHOD CPSAL 

XLA«?. VL A^? + VA2« C AIPMA2-ALPHA1) +VR2* (BETA2-BETA1) r^SAL 

TF ( Jt>ASS.Hf .0) GO TO 96 COSAL 

CALI GLOBAL U. R* AA* 6B*CC* AC*EIGA,yOPKC*NDIM* MG#NG* IR* IC* CPSAL 

1 ALPHA2,BFTAa,XLAM?,CS»M COSAL 

CALL L P 1 * A L ( A i P * A A * R P * CC * UU# UWPK* VV* VWPK * M* NC > IR# IC# CPSAL 

1 AL PMA2,BFTA2»XLA?12* VA2, VR 2* C SP * WORK ) COSAL 

CONTINUE CPSAL 

IF (ITPtV.FO.AI WRITF (6*152) XLEN U ) /CHORD, PSIil > *57. 29577, N Z, PHI COS AL 
1*57. ?9 577, ALPHA2,RFTA2*XLAM2 COSAL 

IF (ITPIV.EO.A) W*ITF (6*132) VA2,V82 CPSAL 

TF (JTPTV.F0.6) WRITE (6*118) XL F U (1 ) /C WOR 0* PS 1(1 ) *57 . 29577 COSAL 

IF (ITPTV.NF.A) WRITE (6*127) AL PHA2 . R E TA2 * X L AM2 , V A2* VB 2 COSAL 

IF (ITPTV.F0.^.0R.ITRIV,F0.5.0R.ITPIV.F0.6) GO Tfl 99 CPSAL 

*♦•** ITRIV » 1 TESTS COSAL 

IF mJMO.FO.l) GO TP 90 CPSAL 

IF IV\ JMR.GT.7) GO TP 98 COSAL 

IF ( APS ( (FFFQ-RE AL(XLAH2>) /FREO) . LE . FP GTOL . AND. AB$ ( G 2 ) ♦ L T . 2 . E-5 ) GCOSAL 
IP TP O a COSAL 

***** L npp to NEXT ITERATION cn SAI 

Tn q ° COSAL 

CChTlNilE CPSAL 

IF IFPJ-P.GT.7) WRITE (6*137) me., 

COfTIMUF COSAL 

***** TF 5 T S OF YQDE SIGN* ACCURACY ETC. CPSAL 

IF (ATHAG(XLAH2) e IT .0*0) I TRIP. 1 r n c AI 

IF (ITPTP.FO.O) IPFGIN-O CPSAL 

IF { ITPTP.EO.l. AND. ICON. NE.O-) GO TO 100 rns Al 

Gr Tn iri CPSAl 

C'-NTI'Jiic fns*L 

If punt ■irnoNT+l 

TF (TCPUNT.GT.X. AND. ICON. EQ.l) WRITE (6*140) COSAL 

IF ( TCPUNT.GT. l.ANO.ICPN.FO.l) CALI EXIT CPSAL 

WPITF ( 6* 1 A 1 ) ICON rn CA» 

mr-M-l cSsm 

***** STAPLE REGION ENCOUNTERS ITRIV • 1 LOOPBACK CPSAL 

IF (ITPIV.FQ.l) GO TO 10 r . 

COKTINIIF COSAL 

***** STAPLE P F G ION ENCOUNTERED. ITRIV - 415)6 LOOPBACK COSAL 

IF ( (ITRTP.EO.l.ANP. TCDN.NE.0).AND.(ITRIV.EQ.4.0P.ITRIV.EO.5.OR.ITCnSAL 
1PIV. FO .6) ) GO TO 11 rncAi 


COSAL 

1105 

CPSAL 

1106 

CPSAL 

1107 

COSAL 

1108 

COSAL 

1109 

COSAL 

1110 

CPSAL 

1111 

COSAL 

1112 

CPSAL 

1113 

COSAL 

1 1 1 A 

COSAL 

1115 

COSAL 

1116 

COSAL 

1117 

CPSAL 

1118 

UCPSAL 

1119 

COSAL 

1120 

CPSAL 

1121 

COSAL 

1122 

COSAL 

1123 

CPSAL 

1 1 2 A 

COSAL 

1125 

CPSAL 

1126 

CPSAL 

1127 

COSAL 

1128 

GCOSAL 

1129 

COSAL 

1130 

COSAL 

1131 

COSAL 

1132 

CPSAL 

1133 

COSAL 

1 1 3 A 

CPSAL 

1135 

COSAL 

1136 

COSAL 

1137 

COSAL 

1138 

COSAL 

1139 

COSAL 

1 1 AO 

COSAL 

11A1 

COSAL 

11 A2 

COSAL 

1 1 A 3 

CPSAL 

1 1 A A 

COSAL 

1 1 A 5 

COSAL 

1 1 A 6 

CPSAL 

11A7 

COSAL 

1 1 A 8 

CPSAl 

1 1 A 9 

COSAL 

1150 

Tens AL 

1151 

COSAL 

1152 
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nnnon 


25 


102 

C 


c 


201 

301 

401 

501 

103 

104 
C 


105 

106 


IF (ITPIV.F0.1) GO to 102 

***** SAVE LAST UNSTABLE NODE ANGLE AND WAVELENGTH FOR 
***** ITQIV - A i 5 1 6 
PSISAV-PSH1) 

XlfNSAV-YLEN(l) 

NXtFN -1 

nPst-i 
, continue 

***** FOP I TP I V • 1 , SAVE LAST UNSTABLE WAVENUMBER 

VAVSAV*SORT( ALPHA2**2+BFTA2**2 ) 

IF ( AT *AG(Yl Av ? ). lT .0. ) WRITE (6,140) 

IF <ATKAG(yLAM2).LT.0.)CALL EXIT 
IF (MIMED. EO.O) GO TO 104 
-f INTFGPATF N FACTOP 

APG?»AT M ADfXLAM?W$CPT( (PEAL (VA2))**2*(RFAL(VB2) )**2 ) /DSTZ 
YM-vr^(APGl*APG2)/2 # *OS 

WPTTE (6*115) APG2 

** tITPTV.FC.4) «FPro.PEAL(yLAH2)*UE(NZ)/2./3*14159/DSTZ 
IF (ITPTV.MF.1I GO to 103 

XLFN(n-2.*3.14159*DST7/SORT(ALPHA2**2*BETA2**2) 

P^I ■ AT AN( V(K PTS ) /U(KPTS ) ) 

TF(TTYP.Nr.C) CO Tp 501 
IF(ALJ>ma 2 .| T.0..AND.BPTA2.GT.0.) GO TO 
IF ( At PHA2.L T.O. . AND. BFTA2.LT.0. ) GO TP 
IF ( M OHA2.GT.0 . . amp. PETA2.GT.0. ) GO TO 
IF(AL°HA2.CT.O..ANO.BFTA2.LT.O.) GO TO 
PSIU)-ATAM(BFTA2/ALPHA?)-PHI*3.14159 
GO to 103 

PS Kl ) -ATAN(BFTA2/ALPHA2 )-PHl 
GO Tp 103 

PS Id ) -ATAN(BFTA2/ALPHA2)-PHI+2. *3.14159 
GO TO 103 

PST(1)«ata>;(3FTA2/ALPHA2)-PHI*3.14159*(1-ITYP) 

VPITF (6,114) yLEN(l)/rH0PD,PSI(l)*57.29577,PHI*57*29577*RFRE0 

VPITF (6,143) 

WPTTf (6,142) NZ*XC(NZ),XN 
WPITF (6,143) 

CONTINUE 

IF (NZ.FO.MSTOP) CALL FXIT 

♦** + * NPPNAL MAIN LOOP TFRMTNATOR 

GO T" 5 fl 

FOPMATS 

*********** ♦♦**♦♦♦****♦*******♦* **************^ + ^ + # ^^^^^ #4t + 4ttA 


501 

201 

301 

401 


F CP M A T ( 5 y, 8HXLENC ■ 
FPPmaT (2X,2BHITRIV 
) 


*E15.8,5X,6HPSI ■ ,2X,F10.6,2X,7HDEGREES> 
• 5 OPTION AT STATION , 2 X, I 5 , 2X , 41 HL OOK I N G 


COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
C n S Al 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
CnSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
♦♦♦COSAL 
cnsAt 

***CO$AL 
COSAL 
COSAL 
COSAL 
FORCOS AL 


1153 

1154 

1155 

1156 

1157 

1158 

1159 

1160 
1161 
1162 

1163 

1164 

1165 

1166 
1167 
1166 

1169 

1170 

1171 

1172 

1173 

1174 

1175 

1176 

1177 
117A 

1179 

1180 
1181 
1182 
13 83 

1184 

1185 
118 6 

1187 

1188 

1189 

1190 

1191 

1192 

1193 

1194 

1195 

1196 

1197 

1198 

1199 

1200 


Ln 

LO 


85 35Vd IVNIOiliO 



26 


114 

115 

116 

117 

lie 

120 

121 

122 

123 

124 

125 

126 
127 


12ft 


Ln C rrccJ ABU a M ? 0E XLENC * ' * * 1 5 . 8 / 2 X , 6 HP S I - , 2X, F10 .6, 2X, 16C0S AL 

2HPEf Pf £S» » # PHI® #2x#F10*6) COSAL 


107 

fopmat 

(/IX, 6H I TP IV* 


INST A BL 

MODF AT o$j . 


2) 


108 

FOPMAT 

(2X,6HITRIV# 


UEVGTH 

0 4 MCE AT STAT 

109 

FORMAT 

(1X,12HITE»AT 


1#6HPSI 

• , F 1 0 *6 ) 

110 

fopmat 

f IPX, 6H I TP] V® 


1 fpfci 

»ENCY « ’ F 1 5 « 8 


20 TO NEXT STATION) 

111 

F0Rm AT 

( 10X, 25HITP IV 


1) 


112 

fopmat 

( 1 0 X , 67H I TP T V 

* 

1 OF PRFOUENCY * ,E15 


2HG0 TO 

N P XT STATION) 

113 

FORMAT 

C///I0X,108HTf 


#F10,6#2X#10H DEGREES /2X,9HXLENC • 


► 15) 


#E15» BCOSAL 
COSAL 
WAVECOSAL 
COSAL 
■5.8.2XC0SAL 
c ns AL 
r A COSAL 


COSAL 
#5X,F10.6CO$AL 
COSAL 

OPTION FAILED TO FIND 0000 UNSTABLE MQDFCOS AL 


5 f ITERATION * - , 13, 10X, 7HP 5 I D 


COSAL 

, ^ nnp |tyii _ STATION OPTIMIZER CAME UP WITH A BAD COSAL 

1 MODE. V.IU T»Y AGAIN AT NF XT STATION* POSSIBLILITY IS THA T / 10 X, CO S A L 
294HJNSTAPIL ITY CORRESPONDING TO XLENC IS TOO FAR FROM THE PEAL MCOSAL 
3AYJMt»M* OPTIMIZER CANNOT DTGES T/10 X, 1 BHT&Y CHANGING XLENC///) COSAL 

,«C P o A IrIJ° y ‘ ,,H ’ ,LE ‘ ,<: ' » F l5.P,5*,5HPSr. ,F10.fc,5X,5HPHI. , 5X , F 10 . 4. C HS AL 
15X# PHPFPFO . ,2*,E15.«,?X,?HH7) rn^.l 

FOP M AT (?0X*7HAP0 . , FI 5 • 8) 

FORMAT (KX,13HWAVFLENGTH • ,E15.8,5X,6HP$I 
110* 6, 5X* 7H°5iO * » F 1 0 • 6 ) 

FORMAT (?X,?3H ITPIV - 6 ITERATION « ,I5,10H 
(?X,1?HNEW XLENC - #2X,E15.8,2X,6HPSI 


# F 1 0 • 6, 5X,6HPHI 


fopmat 

1.1 

format 


(IX# 2 5HEXCE ED 3 INDEX 1 SHIFTS) 

FP° m a T ( / 1 X# 2 2 H INDEX 1 SHIFT » 

F OP M AT </1X»3nHINITm STATION OPTIMIZER LOOP/) 

l«'?Hl/r /1,,,4 cVrA ?: ^ TATInM OPTIMIZER AT STATION . 3X, 1 5, COS AL 

13X,7H*/f • # Fio.6# 3X,1 7HF INAL RESULTS APE) COSAI 

PT ESTIMATOR, ir,FSS®#r5,10X,6H0MEGA.,2E20.13) CnSAL 


COSAL 

#fcosal 

COSAL 

WWV ® #2X,E15.8) C °$ A L 

#2X,F10.6#2X# 5H DEGCOSAL 
COSAL 
COSAL 
COSAL 
COSAL 



COSAL 


FORMAT ( /10X, 47HSIMPLF EIGENVALUE COMPUTATION AT STATION NUMBF R , 3 XC OS AL 
1#T3».X,3H X/C » # 3X , FI 0* 6, 5X , I 5, 3 X# 16HN0DE POINTS USED#/, COSAL 
2 * ** F10. 4, 5X, mmach NO. • *,F6,3) CPSAI 



2 1X,*P£Y * * 

129 

FOPMAT UH1) 

130 

FOPMAT ( / , 3 X 


lX.2F2n.l3) 

131 

FORMAT (//, 5 

13 2, 

FOPMAT (1CX,! 


■#2E20.13,5X,5HVB ■ .2E20.13) 


AL 
COSAL 
COSAL 
•5C0SAL 
COSAL 
COSAL 
COSAL 


1201 

1202 

1203 

1204 

1205 

1206 

1207 

1208 

1209 

1210 
1211 
1212 

1213 

1214 

1215 

1216 

1217 

1218 

1219 

1220 
1221 
1222 

1223 

1224 

1225 

1226 

1227 

1228 

1229 

1230 

1231 

1232 

1233 

1234 

1235 

1236 

1237 

1238 

1239 

1240 

1241 

1242 

1243 

1244 

1245 

1246 

1247 

1248 
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27 


133 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

14? 

148 

140 

150 

151 
15? 

150 


F OR MAT (20A4) C0SAL 

FOP-AT (//10X,67HINITIAL STATION OPTIMIZER ENOED WITH A STABLE MQDCOS AL 
IF* RUN WILL ABORT*) COSAL 

FORMAT (/1X,8?WIBEGIN -1 FAILED TO FIND ACCURATE UNSTABLE COSAL 

1 HOOF OF WAVE NUMBER WAVE- #F10.6#2X#«H X/C • #F10.6#10HAT STCOSAL 

2ATI0N, 15# /) X» 26HPRPCEEDING TO NEXT' STATION/) COSAL 

FORMAT ( / 1 X # B 6H OPTIMIZER EXCEEDED REASONABLE NUMB E CP S AL 

IP PF ITERATIONS FOP CONVERGENCE / # 1 X , 65 HC HECK P E SUL T$ # E SR FC I AL L C OS AL 

2Y REAL PARTS OF OM£GA AND GROUP VELOCITY/) COSAL 

FORMAT (/1X#54HNC HAS REACHED MAXIMUM ALLOWABLE NUMBER OF POL YNOM I COS AL 
1 A I. S / ) COSAL 

FORMAT ( /1X#40HNUMBFR OF POLYNOMIAL BEING INCREASED) COSAL 

FORMAT ( / 1 X » 52H* *$-S T ABLE REGION E NCOIJNTE R E D-PP OGR AM T FR M I NAT E S- t 1C0S AL 
1 * * COSAL 

FOpmat C/1X,38H*S* STABLE REGION E NCOUNTER ED — ICON - # I 5# 2 X, 36HWA SC 0 S A L 

1 SFLFCTFP PROGRAM C ON TI NUF S Sf t > COSAL 

FORMAT UX,19HN FACTOP AT ST A TTON, I 5# 3X , 6HX/ C • # F 1 0. 7, 3X # 6H I S N -COSAL 

1 * F7 » 3 ) ^ a L 

format 

ltC> COSAL 

FOPmaT (1X#33H N FACTOR AT INITIAL STATION NO. # 2 X, I 5 # 2 X , 6H I S N- #COSAL 

1F7 * 3 > COSAL 

FORMAT (2X# 3HDR-# E15.7,3X#3H0S-*F15.7) CnSAL 

FOPmat 1 1 X# 10HSTAT ION NO # I 5, 3 X , 1 C HNE W R AD TUS #E 1 5. 7 # 3X , 7HNE W RE Y # E1C0S AL 
1 5 e7# 3 X# RMNf W DSTZ#EI5.7) COSAL 

F O c MAT ( 1 X, 10 HST aTION NO# I 5 # 3X # 1 5HPR FVI OUS P AD IUS # E 1 5 • 7# 3 X# 1 ?HOR IGC OS A L 
1INAL PFY.f 15.7#3X# 13H0PIGINAL P S T Z # E 1 5 . 7# / # 1 X # COSAL 

2 HOCAL MACH NO* . *#F6.3) C PSAL 

FORMAT (///) COSAL 

FOPMAT { // /5X, 47wpnp ITRIV-4 OPTION, NO UNSTABLE HOOF AT S T A T ION » 1C ns A L 

lX#T3#lX#6HVLENC«#lx#E15.8#lX # 4HPSI«#lX#Ffl.3#lX f 7HDEGREES///) COSAL 

FORMAT ( ///5X, 47HF0R TTOIV-5 OPTION# NO UNSTARLE MODE AT STATION, 1C0S AL 
1 X, I 3#1 X# 6HU ENC -#1 X, E15. 8# 1X#4HPSI«# IX# F8, 3# IX, 7HDE GREFS///) COSAL 

FORMAT (HXflQH INITIAL STATION NO . , 3 X , 1 5 # 3 X # 4HX/ C ■ # 2X # F 1 0 . 6# 3 X # HHCnS AL 
1PFSULTS A*F/) COSAL 

4 OPTION; FOLLOWING FIXED ANGLE WAVE #2X,8HC0SAL 

^51 - #F10.6,1X.1QHDEGREFS #AT STAT ION # COS AL 

JHALPHA ■ # FI0.6# 2X#7HBETA • # F 10 .6 / 1 X# COS A L 

COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 
COSAL 


FORMAT 

( /I x 

#45HITRIV 

■ 4 

1XLFNC 

• # 2 X 

# F 1 5 • 8 

# 2 X # 

/IX 

2 I 5 / 1 X # 

6HPHI 

• # 2 X 

# F 10 

.6# 

3 9HPKf G 

A m 

» 2E 2 0 • 

13/) 


format 

(?X,+ CHORD 

- * # 

F6. 

FNP 





subroutine 

CHECK 

(TITLE) 

OIMFf'S 

ION T 

ITL E ( 5 

) 


WPITF 

(6#n 




WP.ITE 

(6#? ) 




WPITF 

(* # 3 ) 

TITLE 



WPITF 

( 6 # 4 ) 




CALI F 

X IT 





1249 

1250 

1251 

1252 

1253 

1254 

1255 

1256 

1257 

1258 

1259 

1260 
1261 
1262 

1263 

1264 

1265 

1266 

1267 

1268 

1269 

1270 

1271 

1272 

1273 

1274 

1275 

1276 

1277 

1278 

1279 

1280 
1281 
1282 
12 83 

1284 

1285 

1286 

1287 

1288 

1289 

1290 

1291 

1292 

1293 

1294 

1295 

1296 
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FnPMAT (1M1J 

format ifuuffunnt/fuft) 

FPPMAT (20*,5A10) 

,rc P cn T Ji //20X#1 ° HPUN ARnRT S/20X, 72HSEE INSTRUCTIONS AT BEGINNING 
1 CF SOURCE LISTING FOP CORRECT INPUT VALUES) 

FNO 

St'POQUTTNF C P T T (PSICPIT) 

1 C W 1 U 021 02 I TS,Xa02>#U0 (102,# ° in02) # U2<102 ),W ° <102 

P1-1.F6 
NfP^.KPTS-A 
OP 1 J»2»NMP4 

IF (HO ( J ) « GT • • 909 ) GO TO 2 
A1*UC( J J /WO( J ) 

A2«U2( J )/W2( J » 

P2-A1-A2 

If UB2. r,E.O..ANO.Bl. IE. 0.). OR. IB2. IE. O..AN0.ei.GE.O.M JSAVE-J 

Crt tini'c 

continue 

PSTrFIT«-ATAN(U0(JSAVE)/V0(JSAVE))*3.1415977 

P F T t J P N 
ENp 

St'P ° PUT I NE WING (NZT) 

PFAL muF 

CP^hon /VUG/ XC( 60)»THETA<60) 

C n. M w pw /EDGE/ TF , HUE , UE ( 60 ) 
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* FTUPN 

WPITE( 6 ,n> 

fPP-AT(///, 9 X,*Na unstable node found in global calculation. THE LCOSAI 
4 Lo S jr i L:? D L W fi L ® E *‘ / ' 9X '* USEn 1N SUBSEOUENT LOcJL EK,EN T VulicnlAL L 


it SFAPCh. this is !♦,/> tm N » 

N6*Nf SI-6 
15-5 

XLA^* C TG<I5) 

PP^f «! . /( PfAL (E |G< WIN-3 ) )) 

15 I«*,K'6 

PPP«PFAl(EIG(rU*PFAG 
IF( PPP.GT. . 8 ) GO TO 15 

IF ( RPR ,LT .0** ANO. Afl$ (PRP ) «GT* *001 )GO TO 15 

ter r iNnF <XLAM) * LT * ATMA6< E * 6 < i> nxLAH*eiG< u 

W p ! TF (*,4)XL AM 

RFTl'RN 

FKP 

SMPPPUTINE F10WCNWANT,NZ ) 

REAL m ACm,pue 

i^uc2J?nu^L > ^{lo?5' Ul,102, ’ Uznoz, '“ ao2, ' viaoz, ' wz<m, » 

pinf r $ ipn u p ( i j 

COMMON /MFIO/ KPTS,X,U,U1,U2,W,W1,W2,T,T1,T2 

CrNVr *, 1 / E OF F / T£ # MUF t MF 

00 M NPM /poro/ yM a CH * G AN A * P FY » PR ANOTL * STOKE S# DSTZ 

CP^ w r*i /X^k/ «ACh 

C ON N r vi /CG/ G,XL,xr 

CTN^ON /PRINTS/ |PP1 

CONTINUE 

P F A P ( 7 ) «Z.NNO p 0STZ,PFY 

PE A P ( 7 ) OF# PF> T c pPHr)E,MU£#TW>PHOW 

PF/0(7> (y ( j ) , J-1,NNP ) 

F F A D ( 7 ) (U (J),J* 1 ,NN®> 

PEAP( 7 ) (Ml (J)#J* 1 #MNP) 

PEAP(7) CU2(J)pJ-i#NNP) 

P F A P ( 7 ) (W (J)#J-1#NNP) 

R F A P ( 7 ) (W1 (J )# J-1,NNP) 

P E A P (7 ) (W2 ( J J # J-1,NNP) 

P E A P ( 7 ) <T <J)#J-1,NNP> 

P F A P ( 7 ) (T1U) # J«1#MNPJ 
PFAD(7) (T2 (J)# J-1#NNP) 

IF (N7 . LT.MWANT) GO TO 10 

KPTS«NNP+l 

U(KPTS)»1# 

U1 ( KPTS )«0. 

U2(KPTS) -0. 
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1 ALPHA,PETA,XlAf-»NPASS>DENOK) 

CAU COPVF LC A,B,UU>UVPK,VV, VWRK,M,NC,VA,VB, ALPHA, BETA, XL AM. 
1 PFHO M > 

IMIPASS.NF.IIGO TO 344 
TFUNTPPPL.EO.UGO TO 790 
XlAKl-XLAH 
VA2 «VA 
V P 1 • V p 

Hl-l./FL0AT(NC-l)**2 

NCWC 

or 55 I *1 , HC 1 

55 wnpK(n-rsPU) 

NC-NC+IPP7 

P I N * r T / < K: c — 1 > 

NH.K -1 
GO TP 677 

344 IF( I PASS «EQ*3 >G0 TO 341 
HA*?*UAM 
VA?.VA 
VP? • VP 

H?«l ,/Fl OATCNC-1 ) **2 
NCWC 

PO 56 1*1, NC 

56 WOP * ( T ) - C S P ( I ) 

NC*NO I P* Z 

PP «PI/{NC-1 ) 

GO TP 677 
34i cr> TINHF 

H3- 3 . /PLPAT(NC“1J**2 
VLA*3»XLAM 
H231«(m?-h?J/H1 
H31 ?• ( H3-H1 ) /«2 
Hl?3* ( Hl-H? ) /H3 
HPFrO M -l . / (H2 3UH312+H1Z3) 

XL A (M2 31* XL A h*l-fH312*XL A«24H123* XL AH3 )*H0EN0M 

V A * ( M2 31 *VA 1 ♦H312+VA2+H1 ?3*VA ) *HDENPM 
VB- (M231^VPl>H312*V92>H123*VB)*HOFNOM 
NC P « f'C 
NChMTCmo 
790 rPNTlMiJF 
J P A SW 

IF ( I PP 3 • EO* 0) GO Tn 200 
VP I T F { 6 , 5 57 ) A L P M A , BETA 
IF( INTPPOI. .EO.l )G0 TO 200 
VPITF(6,22?)XLAM 
WPITF (6,256)VA,VB 
20C CONTINUE 
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TF< IPP4.EO.0)RFTURN 
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FCFMAT<///»5X>Mt N SHOULD PE 5 FOR EIGENFUNCTION 

CALCULATION %%* COSAL 
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FCP*AT(///,5Y. ^EIGENFUNCTION PRINTED. THE ORDER 

OF PRINT IS t*, COSAL 

1574 


1 //, QX,*J,V(J> ,U( J),V( J),P( J> ,T( J> AND W ( J ) . NOTE 

THAT U»V,P,T ANDCOSAL 
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OI^ENSIPN OUM1 c 101 )* Dl**2 (ion #0LM3< 101 ),0U*4< 101 >,DUM5< 101 ), 

1 PU>*M 101 ) f DU*7(101) ,ntjf*8( 101 )»DUM9(101 ), DUN 10 <101 IpDUMlltlOl), 

2 oi'«i?noi> 

COUPON / PUM Y / 0UMl»OU^2,DUM3 > OUM4,DUH5,nUH6,D»JH7,DUHP,DUM9,OU>*lO. 
lPUPUf ri!K 12 

01 KF NS ION X( 102 > »U( 102), UK 102 WU2< 102 ) , W(102) >Wl ( 102) t W2 { 102 ) p 
1 T(lC2)»Tlfl02)»T2(t02) 

"TENSION XXU>,CSP(1) 

WC* /*FL Of * P TS » * »U>Ul»U2»V»wl»W2»T#Tl#T2 
C0 MM ON /FOCf/ TE»MUE 
CDF* ►TN /GG / G,vLpXX 

CONPTSN /PRINTS/ IPP1,IPR2,IPP3 # IPR*,IPR5 

NP-N’Ol 

KO«C 

on 2 I ■ I * n C 

XX (I )«1 .-FI OAT(I -1) /FLOAT ( NM > 

csp ( n-xi*xx( ii /( g-xxci ) i 
IFICS®CT)«GT*X(KPTS) I GO TO 2 
ko**0 4-i 

ot’^ictKoi-rspn) 

CONTINUE 

on 3 w#nc 

IF f CS P € 1 1 .LT.X<KPTS))GO TO 4 

CONTINUE 

NI«! 

NM«NC-*NI4>1 

CUt *5L1NTC0»3» XU^KPTS # 0t'M10,miMl»NN I 
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DUMB (K1 )-0UM8(K2) 
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1 Pl' M M J)»PliP7f J > *011*8 < J),DU*Q(J )*J-1*NC ) 

EPPOLATEO TO THE COMPUTATION 

CPS Al 


15 

FO®MAT( 
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AN FLOW 

PROFILES 


1 A L CPIO 

AFF 
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FOPHATU 
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COSAL 

cnsAi 
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COSAL 

CnSAL 

COSAL 
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COSAL 

COSAL 

COSAL 
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1 
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COSAL 

COSAL 

COSAL 

COSAL 

COSAL 
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COSAL 
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ItllfSl) #ttWPK(M,l )» V(M,l ) ,WPK( N,l> 

COMPLEX L AMP HA » G p H » O NE G A#FAC#FACT 
CCPmtn /PRINTS/ IP»1 vIPR 2*IPP3 
EPSL ON* vOl 
C n N«l^F-06 

KM.KPl.l 

2 

I T J ■ t* * M M 
rrnuNT-o 

3 co icrtiMT-icnuNT+i 

CALI G 5 E T < A L # PL , 0* E G A , M# HP 1 * A ■# 0 * 0 ) 

CAL L GSFT1AL., *L » 0* FG A* M , NP1, B,1#0> 

C At l BPUNPPYdP* IC*M! 

CAt L A PC SET ( A,*yM*NPl, AA # 8B, CC»0) 

CALL PLKLr «AA>BPf CC*NM,M,H2, IR # IC,G) 

L* 0 

501* L«L*1 

CALL G SET < At# * L > OM E G A , M , N P 1 B , 1 , 1) 

CALL FDf VAt {lf,tlUPK,V,VWPK#M,NPl # 0#0»A, ; B) 

If UVG'FvU-L )G0 TO 501 
IFCL .LF.2K0 TO 601 

IF( APS CPFAt (FAC H. IT. CON. AND.ABSt AINAG(FAC) ) .LT.CONIGO TO 501 
PR1 -RF AL (FAC) 

FPT«PF AL (FACT ) 

FI1« A I M AG t FAC ) 

F IT* AIHAG4FAC T.) 

FACT- FAC 

IP ( APS (F.P1 / F p T - 1 . :) » G T . F P S l ON )GfJ TO <601 
TF •( A p 5 ( F 1 1 /FT T -1 * ) • L E . E P $1 ON ) GO TO 501 
601 CONTINHF 

TF(rrpiiNT.,Fo.u r rp»:L,Eo,iiGr to 602 

IF < A PS (PEAL (FAC ) > .IT . C ON , a N D . A 0 $ { A I'M A G ( F AC ) ) . L T • C ON ) GO TO 501 
602 -C ON TIM ff 

CALL BLH’SOt V< AA, BB, CC> f*2 » IP# 1C*UWRK) 

CAtt B L KT P M AApBP*CC* NH# M * M 2# IP ♦ IC » V W P K 1 
FAC * 0. 

DO POP I - V, Hi 

I F ( C A 0 S ( L' WP K ( I )i) , L T.* C ABS ( F AC ) 1 GO TO 200 
F AC*t!WPR ( I ) 

20C COKTINUF 

FAC-1 . /FAC 
IF ( L *EQ 4 1) FACT-p AC 
I F ( I P P3 *N F *1 )G0 TO 221 
WP IT F-( 6* 3 7)1 COUNT#! * NM 

37 FOPYATUK,* NP.ASS -M3»5 X,* L •♦,I3,5X**N -+* 13 ) 

WPTTF (6# A A 6 ) F A C 
AA9 FORMAT ( IT, *FAC-+,2E20. 13) 

221 CONTINUE 
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1 CONTINUE 

<50 Tn 105 

ioi on ioo i«i,m 
ro ioo k«i,nh 

UWPKf I»K)«P. 

IF( ISW.ro. 0)VWRK(I,K)*0. 

ICO CONTINUE 
105 COM T IN iip 

CO 21 K»1,NP 
DO 2? T*1,M 
IF f I«E0*3)C0 in 10 
IF(*<.FG,1)G0 TO 22 
on 2 ? j-i,m 

I F( J .FO. 3 )G0 TO 26 

l!WPm,k).i. W RKtI,K)*e<T,J,K)*U(J#K) 

IF( I5U.eo.O)VWPKCI # K)«VWPK< I»K)+B(J» X»K)*V(J»K) 

Go TP 23 

1'W0K( T • K ) *UU?K ( I * K )+C*5*9(I,J, K ) * (tj ( J» K >*U( j # K*l)) 

^^ 5 i^f* C,VWOI<<I,K ’* VWPK(I ' k ’ +0 - 5 * B(j ' i ' k ’* ,v(j ’ k » +v<j ' k -i*» 

GO T n 2? 

10 no ii j-i,m 

TO 14 

Vc # ri 1 ' ri*« WPK< I ' K,< : 0 '25*<B<t > J,K)+B< ))*<0(J,K) + U(J,K + 1 

i <v(j,K>*vcj^*in”’ K, * VWPKn ' K, * 0,25 * <B,J ' I ' K, * B<J,I ' Knn * 

CO TO 11 

OWPtf (I.K ).UMPK(I,K>+o.5*(B(I,J,Kl*B(I,J,K*n)*UCJ,K» 
cn* tim*e°* ,,,VW 0 ' < * I,k * " VUPK B( J> i »K)*t(j>iiK*ii)*vij> 

CONTINUE 

continue 

DO 30 J * 1 > M 
IF{ J.F0.3)G0 TP 30 
I'WPK ( I # 1 ) »0* 

30 CONTINUE 
PFTUPN 
ENn 

GRPVEL(A*8,U,ttWRK,V»VHRK,M,NPl,VA,VB, ALPHA, BET*, OMEGA 

i r T N P M ) 

wnll VA » VbI.OEMOm* ^ * ’ V(M*1) # VWRK {><,1), A( H f H* 1) »B1 M.M, 1 ) 
CDPMPN /PRINTS/ IPR1 , I PP2» I PR3 
NT1 • ** (MPl-i ) 

CALL OLDK (ALPHA, RETA,0f*EGA»M,NPl,A,O,l # »0«#AIPHA) 

CALL OLHK (ALPHA » BETA, CMFGA,H,NP1 ,P,1 ,1 . f 0., ALPHA) 

CALL FOF VAL ( U, PWPK ,U>UWPK, H, NP1, 1, 1, A, R ) 
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Y(5)-CSOPT<Y<5>> 

COS AL 

2305 


Y<6) — Y ( 5 > 

COSAL 

2306 


PFTUPN 

COSAL 

2307 


FNP 

COSAL 

2308 


SUPPDUTIK'E 01 DK ( AtPHA,B*TA,0MEGA,M,N#A,IA # FA,P8#KB) 

COSAL 

2309 


PFAl MU»NM1»NU2»LAN»LM1»HU»KB 

COSAL 

2310 


COMPLEX IOTA 

COSAL 

2311 


rif-pNsmN u ( i o i ) , umci>#u2{ioi ),wtiox)#wiaon»w2(ioi>»Tcioi)# 

CnSAL 

2312 


1 T1 non, T?(101.),NUU01 )*NU1(101),NM2(101) 

COSAL 

2313 


complex omfga.psi 

COSAL 

2314 


COMPLEX 

COSAL 

2315 


CPMPLF X B11,B12,R14, B21» B22, R 2 3 , B 3 2 , B4 1 , B44, R45,B54#R55> 

COSAL 

2316 


1 C 1 1 » C 12 «C13*C14»C21 »C22»C24»C31»C32»C33»C34»C42»C43»C44» 

COSAL 

2317 

o o 

2 C52#C54,C55 

COSAL 

2318 

% 

COMMON /PPPP/ XMACH,r,AMA,pp, XPR,D3 

COSAL 

2319 

~X) O 

COMMON / OUMY / d,Ul»M2»V» W1#V2,T»T1»T2»NIJ,NIJ1,NU2 

COSAL 

2320 

14*4 

COSAL 

2321 

o 2t 
O 

73 r 

I J « r 

COSAL 

2322 

TkP»2. *KB 

COSAL 

2323 

ALPHA2«AlPHA*At PHA 

COSAL 

2 3 2 4 

0 “3 

c. 

BETA?. BET A*R£TA 

COSAL 

2325 

AL PT«ALPHA? + BET A2 

COSAL 

2326 

p Ml 

LAM. ( 2 *4pfi >*2./3 . 

COSAL 

2327 

CHI »l A p-2 • 

COSAL 

2328 


LP 1 ■ L A M — 1 • 

COSAL 

2329 


GM1* CANA-1* 

COSAL 

2330 


sir. »>PP 

COSAL 

2331 


ICT A" ( 0 * * 1 • ) 

COSAL 

2332 


nr mo i l - 1 # n 

COSAL 

2333 


L«h-LLU 

COSAL 

2334 


no ic w»h 

COSAL 

2335 


OP 1C J«lfM 

COSAL 

2336 


A ( I # J * L ) * (O.tO.) 

COSAL 

2337 


C r M T H U E 

COSAL 

2336 


AN1-* Ml Cl ) /MU(l) 

COSAL 

2339 


HU-M'U ) , 

COSAL 

2340 


AU1-FA4U3 (l)>FB*Wl(t) 

COSAL 

2341 


AWl.FA*Vl(L)-PBYUX(t) 

COSAL 

2342 


IF ( TA.FO.l )G0 TO 1000 

COSAL 

2343 


B12«inTA*LPl*TKB 

COSAL 

2344 


AU,2,l)«B12 

COSAL 

2345 


B1 4 • AN 1 * AMI 

COSAL 

2346 


B41-?.^GNl*yHACH*SIG*r AUX-CALPHA*U1(L)4BETA+W1(U )PKB/ALBT)/ALBT 

COSAL 

2347 


A(1,I4,1 ) * P 14 

COSAL 

2340 


A(I4,1 # L)»P41 

COSAL 

2349 


IF(n.E0.4)GC to 100 

COSAL 

2350 


B45-?,+GM1*XMACH*STG*(AWX-(ALPHA*W1(U-BETA*U1(U )4K8/ALBT)/ALBT 

COSAL 

2351 


B54.AS1+ AW1 

COSAL 

2352 
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MI4,I5,U»845 
A(I5,I4,L)«B54 
GO Tn 10C 
1000 CCf'T INIJE 

PSI • IOTA* f FA*U (L )*FB*V (L ) ) 

AN?.MU2(l)/NU(L) 

A»'?«FA*U2U J*FP*W2(L) 

AW?«FA*w2(U-FB*IJ2Ct ) 

TP«1 •/ )*T(L )) 

Cll«-( Pf*PSI*TM-vLAH*TKB) 

Cl 2 — ( p F*Alti*TW-inTA*ANl*TI(L)*TKB) 

C13 —IPTA*Pf*TKB/MU 
C?2»-{PE*P c r*THfTKB)/lAH 
C?3 -r- AHA* XMACH*PSI 

aci , i,n«cn 

A(3,?*L)*C12 

An# 3 #n-cn 

M2,?,U»C?2 

A ( 3 , 3, L ) «C 3 3 

Cl4-AUl*AN2*mL | + AU2*AN1 
C24« IOTA*Ahl*AUl/LAN 
C34.-PST/TCU 

C42*?, * IDT A* G^l *XMACH*AU1*$IG 
C43 «FF*<; TC*G M 1*XMACH*PSI/Mtf 

0 4 4 ■ - f p F*S7G*PSI*TM*TKR) 

A(ltT4«L>»ri4 
A(2,I4,L)-f24 
A ( 3 » 14, L ) -f 34 
A( 14 , 2,t J *C42 
A{I4,3,L ) *r 4 3 
A ( I 4 , I 4 # L )-C44 

0,4)f,P TO 100 
C 5? *-P F + AW]*TM 
C54»AN2*T1 (L )*A W1 + AN1* AW2 
C55 •-{ RF*P$ I*TM*TKB) 

A ( I 5 » 2 * L ) ■ C 52 
A(I5#T4»L)*C54 
A(I5,I5,U«C55 
100 continue 

RETURN 
F^D 

SUP POUT INF GLOBAL! A,B,AA,BB,CC,AC,E 
1 4L , 8L,0MEGA,CS 0 ) 

COMPLEX A(^,m, 1 ),BCH,H, 1 ), AA(«,I», 1 ) 

1 AC (NDI*»1 ), EIGA(l) , WOPK (1 ) 

C WOPK SHOULD PF niMc NSInNfD 2 * NnIH lN THg m a T N PROGRAM 

ni^FNsiou ir(m,i ic(M,i),rsP(n,iNnFX(io) 

COMPLEX PMFGA 


IGA, WORK, NDIM,M,NP1 
),CC (M,M,1 


, IP, IC , 




COS AL 

2353 

COSAL 

2354 

COSAL 

2355 

COSAl 

2356 

COSAL 

2357 

COSAL 

2358 

COSAL 
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COSAL 

2360 

COSAL 
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COSAL 

2362 

COSAL 

2363 

COSAL 
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COSAL 
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COSAL 
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COSAL 
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COSAL 

2366 

COSAL 
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COSAL 
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COSAL 
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COSAL 
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COSAL 
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COSAL 
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COSAL 
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COSAL 
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COSAL 
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COSAL 
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COSAL 
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COSAL 
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COSAL 
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COSAL 
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COSAL 
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COSAL 
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COSAL 

2389 
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COSAL 
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COSAL 
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COSAL 
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COSAL 
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COSAL 
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COSAL 
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COSAL 
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COSAL 
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COSAL 
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DO 1 I-1#NT1 
DP 1 J«1,NT1 
AC < I * J ) *0* 

DO 10 J»1,K' 

JM -J-l 
J*2- J-2 
00 10 I-1#M 

no 10 l-i#m 

IMJ,ne.1UCU*JH1*M#L + JM2**)«A(I#L, J) 

AC( I + 

IFU.NF.N) AC ( I + JM1*N#L+J ♦*)•€(! *l#J) 

CONTINUE 
® F TUP N 
F NO 

SUPPOUTlNf RSL1NT ( K FCN# KOP D # X# F # M X# [), G# IU ) 

OI^FNSIPN X< Dp U(l># Gtl># F<1#1) 

Cn^^nN /B5L1CM/ LOG #kfPP#L#M#n,p,xm#XP#FM#FP#D 2FM#D2FP#EPS#0NF 
DATA LOG# KfPP,L.M„N/6#C#l#l#l/ 

DATA 02PM, r?FP» EPS# ONF fO . , 0 . # 1 . F-7, 1 . 0000001 / 

P2C0V, F“1 «F()#FP1 )-( F PJ -?.*FO+F»i II /OX** 2 COS At 

V2(P)rM,0XP,F M l,P0,ePl).(2,*(FPl-F0> / n X p- 2 . * f FO-FMX ) / OXM ) / ( DX D X P ) COS A L 
BSt ( P# r>x,FC»0 2FO* FJ, 02F1 )• F0 + P*(F1-F0)-P*( 1 .-P )*DX**2* <C2* (02 F0 + 02CDS AL 
1F1) *( P-.5) *C3* ( 02F1-02F0) ) COSAL 

01 P (P # ny, FG#02F0* FI , n?Fl ) * C Fl-Fo ) / DX*0X* ( { 2. *P-l * > * C 2 ♦ ( 02 F0 + D2 Fi ) -COSAL 
1 13.*P*(1 #-P)-.5 >*C3* (P2F1-02FC) ) COSAL 

D2R ( P# PX# FO# 0? FO# F 1# f)?Fl ) »?, *C2* ( D2FO + P2F1 )♦ (6« * P-3, ) *C3* (D2 F1-D2FC0S Al 
101 COSAL 


COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 


II 2-2 
KF PP -0 

IMX«M A XO(l#t ARS(IU) > 

TF (KOPD.LT.O) GH TO 6 
If CK’-IARSCKFCN) 

IOPD- I ARS(KOPD) 

MMX -TAPS < My ) 

IF <“Mx,lT.A> I 0&D • 1 
MH1-MMX-1 

IF ( tf , GT , PM1 ) M-HM1/2+1 
OX-1, 

INDX ■ I S I CN ( 1 # M X ) + 1 S ION (1 # 10 ) 

IF (INOX) 3# 1 > 2 
IF (lU.LT.O) INOX-2 
0 X« ( x ( 1 1? )-X { 1 ) ) 
Slx-rir,N(l,#DX) 

CONTINUE 
Ppx -1 , / OX 
C2* C • 

C3-0 . 

IF UORO-2) 6,5,4 


\ 


COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

CnSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

CnSAL 

CO<AL 

COSAL 

COSAL 

COSAL 

COSAL 

CnSAL 

COSAL 


2449 
2* 50 
2451 
2*52 

2453 

2454 

2455 

2456 

2457 

2458 

2459 

2460 

2461 

2462 

2463 

2464 

2465 

2466 

2467 

2468 

2469 

2470 

2471 

2472 

2473 

2474 

2475 

2476 

2477 

2478 

2479 
24 80 
2431 
2482 
2 4 ° 3 
2484 
2405 
2 4 86 
2487 
2438 

2489 

2490 

2491 

2492 

2493 

2494 

2495 

2496 
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(-* 

00 

■-J 


4 

C3»l • / 6. 

COSAL 

2497 

5 

C2 * • 2 5 

COSAL 

2498 

6 

CONTINUE 

COSAL 

2 A 99 


I-C 

COSAL 

2500 

7 

C TNT I NIJE 

COSAL 

2501 


I » I ♦ 1 

COSAL 

2502 


IP (I.CT.IMX) GO TO 35 

COSAL 

2503 


IP 4 (IKOV.CF.O) UI-U(I) 

COSAL 

2504 


IF (INPX) 8,9,12 

COSAL 

2505 

8 

em'TIMUE 

COSAL 

2506 


X (t * 1? I 

COSAL 

2 5 07 


TF (IMX.GT.l) XM.FLOAT(I-l)/FLOAT(IMX-l)*FLOAT(HMl)+l. 

COSAL 

2 5 00 


p «y m 

COSAL 

2509 


XH. XM-FLOAT(INT( XM) /MMX) 

COSAL 

2510 


XP-VM+1* 

COSAL 

2 511 


M-X PS 

COSAL 

2512 


P«P-FLOAT(M) 

COSAL 

2513 


GO TO 10 

COSAL 

2514 

9 

continue 

COS Al 

2515 


m»(UI-X(1))*P0X*0NF 

COSAL 

2516 


XtM-V/MMy 

cosai 

2517 


XP*X (1 )+FLOAT(M)*OX 

COSAL 

2510 


XN- X o-Pt 

COSAL 

2519 


P* { UI-XM ) *FPX 

COSAL 

2520 

10 

CO* TTNIJF 

COSAL 

2521 


IF (♦-. IT .1.C1P.M. GT.MM1 ) GO TO 36 

COSAL 

2522 


GI« m 

COSAL 

2523 


IF (TOPD 4 LF.O) GO TO 11 

COSAL 

2524 


XMl-v*i-ox 

COSAL 

2525 


XPl-XO+OV 

COS At 

2126 


t F {»*n.-PJ,GT,€PS> GO TO 20 

COSAL 

252 7 


IF ( IFCN.NF .0 ) GO TO 20 

COSAL 

252 8 


M*FLPAT(M)+(P+»5) 

COSAL 

2529 


N»,L* ( M-l ) ♦! 

COSAL 

2530 


GI*F(N,1) 

COSAL 

2531 

11 

CCf'TlMUF , 

COSAL 

2532 


G ( I ) ■ G I 

COSAL 

2533 


GO' TO 7 

COSAL 

2 5 34 

12 

CONTINUE 

COSAL 

2535 


N»0 

COSAL 

2535 


M-MTNO (*,MM1 ) 

COSAL 

2537 


Ml * 1 

COSAL 

2538 


M2«MMX 

COSAL 

2539 

13 

CONTINUE 

COSAL 

2540 


IF t S1X*(X(M+1)-XCM) > ,LE.O, ) GO TO 37 

COSAL 

2541 


IF' tSlXMUI-X(r) )) 14,10,16 

COSAL 

2 542 

14 

Cn>*TlNUF 

COSAL 

2543 


IF (M.LF.l) GO TO 36 

COSAL 

2544 
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h-h— a 

IF f SI X* ( tJT-X t M » > > 15, 18, IB 
M2»H 

IP (N.NF.O) H»(Ml+M)/2 
W*1 

GO TT 13 

commie 

IF {Siy*(UI-XCHtim 18,19,17 

M-V4 1 

IF ( M.GE.MMX) GO TO 36 
Ml- M 

IF (N.NE.O) *-<M4M2)/2 

N-l 

GO TO 13 

rnr* t tmuf 
m-nimc<m,mmi ) 

XM- X l M ) 

XP-X ( M 4 1 ) 

GT» m 

IF ( 10 PD* LE • 0 I GO TO 19 

DX »x P-x M 

KOx-l./nx 

P ■ l P I -X M ) *R D X 

IF fr.GT.l) XMl-X(M-l) 

IF (M.tT.MMX) XP1*X{M42) 

IF (p*U.-P).GT.EPSS GO TO 20 
IF { I F C N * K f *0) GO TO 20 
H-FL rsrt m)4 (P4.5 ) 

N-l * («-i ) 4 i 
GI«F (N, 1 ) 

CC^. T IN llF 
Gm-GT 
GO TP 7 
CCI T IMIJE 
N-l ♦ < M— 1 ) 4 1 
LN 1 * 1- L 
Fm.c (N, 1 ) 

FP-F(N,L4l) 

IF (M.GT.l) FM1-F(N,LM1) 

IF f«.lT.MMl) FP1-F l N, 2 + 1 + 1 ) 

IF ClOPn-i) 7,30,21 
CON T IN UF 

IF ( IS IGNt^-l, INOX-1 )) 22,23,24 
n?FM»P2(px, F Mi,pH,FP) 

GO TP 2 9 
l P2-3M +1 
X°2* X 0 1 ♦ DX 

IF (INnv.GT.O) XP2-X(M+3) 
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COSAL 

2549 

COSAL 

2550 

COSAL 

2551 

COSAL 

2552 

COSAL 

2553 

COSAL 

2554 

COSAL 

2555 

COSAL 

2556 

COSAL 

2557 

COSAL 

2 5 5 8 

CO$AL 

2559 

COSAL 

2560 

COSAL 
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COSAL 
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COSAL 
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COSAL 
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COSAL 
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COSAL 

2574 

COS AL 

2575 

COSAL 

2 5 76 

CnsAL 

2577 

COSAL 

2578 

COSAL 

2579 

COSAL 

2580 

COSAL 

2 5 ? 1 

COSAL 

2582 

COSAL 

2583 

COSAL 

2594 

COSAL 

2585 

COSAL 

2596 

COSAL 

' 2587 

COSAL 

2598 

COSAL 

2589 

COSAL 

2590 

COSAL 

2591 

COSAL 
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FP?-F(N#LP2) 

COSAL 

2593 


D2F*«V2CDXf XP1-XP# FM#FP# FP1) 

COS AL 

2594 


D2FH-D2FMMXP1-XP) /( XP2-XP1 > * < D2FM-V2 (XP1-XP#XP2-XP1# FP# FP1 # FP2 > ) 

CPSAL 

2595 


Go TP 25 

COSAL 

2596 

24 

n?FM-V2<XM-X«l # 0y#FMl,FM,FP) 

COSAL 

2597 

25* 

erPTiNue 

COSAL 

2598 


IF (I5IQN(P*<l-H,lN0X-in 26# 27# 28 

CPSAL 

2599 

26 

P?FP.P2(0X#FK,FP,FP1) 

COSAL 

2600 


GO TP ?Q 

CPSAL 

2601 

27 


COSAL 

2602 


XH2*X M l-pX 

COSAL 

2603 


IF (INPX.GT.O) XM2 ■ X ( M-2 ) 

COSAL 

2604 


Fr?«FCN,tP?> 

COSAL 

2605 


02Fp«V2(XM-XMl f 0X#FMl,FH#FP) 

COSAL 

2606 


P?FP.D?FP^{XH-XMn/(XMl-XM2)4(D2FP-V2(XMl-XM2#XM-XHl#F^2#FMl,FM) ) 

COSAL 

2607 


GP TP 20 

COSAL 

2608 

28 

n?FP*v?<nx,xPi-xp,FH,FP,FPi) 

COSAL 

2609 

2<j 

cpminof 

COSAL 

2 61 C 

30 

CPNTIMMf 

COSAL 

2611 


IF MFCN-1) 33# 31# 32 

COSAL 

2612 

31 

CfTTlNPF 

COSAL 

2613 


GI*m(o#OX#FM,D2FH,FP,D2FP) 

COSAL 

2614 


GP TP 34 

COSAL 

2415 

32 

CONTINUE 

COSAL 

2616 


GI*n23(P»rx#FM#D2FM f FP#D2FP) 

CPSAL 

2617 


GO TO 34 

COSAL 

2618 

33 

m.TlNU e 

COSAL 

2619 


GI»*St ( P#PX#F*, D2FM, FP.D2FP) 

COSAL 

2620 

34 

C PP T I N UF 

COSAL 

2621 


GUJ.GI 

COSAL 

2622 


GO TP ? 

COSAL 

2623 

35 

err tinuf 

CPSAL 

2624 


. L *1 

COSAL 

2625 


P ETL'PN 

COSAL 

2624 

36 

CONTINUE 

COSAL 

2627 


K F P P * I i 

CPSAL 

2626, 


GO TP 35 

COSAL 

2629 

37 

COr* T INU P 

COSAL 

2630 


KEPR— H 

CPSAL 

2631, 


GO TP 35 

COSAL 

2632 


ENP 

COSAL 

2633 


SOP P PUT INF STAPTUP ( AL PHA # BF TA # RE Y# NC# E IGA# A # B# A A# R8# CC # AC # WOPKC# 

COSAL 

2634 


1 NPT*,H,*G#NG.UU#UWPK#VV#.VWPK#C$P# VCPK# IP# IC#FPEO#XLAM#VA#VB# 

CPSAL 

2635 


2 XL AMl,VAl#Vai #EPS# ALPHA1#BETA1# ALPHA2# BFTA 2 ) 

COSAL 

2636 


COMPLEX FTGAfl ) , WOPKC(l) , VA, VP. VA1#VP1 

COSAL 

2637 


riHF^STPN VO^Ktli# TP (K#l), IC(M > n#CSP(l > 

COSAL 

2638 


C nMD LF X AC(NDIM#l)#A(H f M,l).B(M#H#l).AA(M,M,l),BB(*1,M,l), 

COSAL 

2639 


1 CC (H,*,l),UU(M#l),»JWPKM#l)#VVMH#l)»VVPK(f1 # l) # XLAM,XlAMl 

CPSAL 

2640 
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C0HH0N /FUN/ JPASS 

Cn-MCN /PRINTS/ IPR1»IPR2,IPR3,IPR*,IPR5,IPR 6 , IP R 7 

CO**ON / I Gt Oft / TGLOfi 

ITEP-0 

IF A L PHA *0 A NO PETA-0 HAKE INITIAL GUFSS 
IP (ARS(*LPH»).GT.l.E-5.nR.*«S(BET*).GT.l.E-5» GO TO 1 
Al°H/. *-.2 
PFTA..4 

IF ( JPASS.l E.O) GO TH ? 

CAll GLOP A l ( ApPj AA*RR>CC# AC#ElGA#WORKC#NDIM# MG»NG#IR» IC* 
1 Al PMA , RFTA# TLAH,CSP ) 

I PA 5 5 *0 

CALI LOC AL ( A* R» AA# RR,CC* UU#UVPK#VV#VWPK*M#NC» I*# IC# 

1 At P ma , pfta. XL AM, vA, V«#CSP» WORK ) 

IF ( IGl PR , FP.3 ) JPASS-C 

IF (I°P?.F0*0) GQ TO 3 

WPITF <6#9) ITE0#ALPHA,BETA#XLAM,VA,VB 

Crh;TTNtiF 

PVA.PFAL(VA) 

PVP-PFAL (VP) 

AVA-AIHAG(VA) 

AVP- AI«Ar.(ve ) 

ALPMai-pva*(FPEQ-QFAL( XL AM) ) 

PFTA1-PVR*{FPE0-REAI(XIAH)) 

SPP«PVA*4?+pvb**2 

A L F H A 1 ■ALP^Al/SDp+ALPHA 
Pf T A! • Rf T41 /S°P+8£TA 

IF MiRSIUPHft-UPHni+ARSIBETA-BETAin.LT.FPS) GO TO 4 
XIA * * t AM4VA*(ALPHA1-ALPHA)+VB*(BETA1-RFTA) 

ITE P-XTFP + 1 
Al PH A- A l PM / l 
RFTA*^FTA1 

IF ( ITFP.GT.io) GO TO 4 
GO TO 1 

WAVF -A l PHA **?♦ pc TA44 Z 
IF (ITER. GT. 10) WPITF. (6# 10) 

IF (A3S(PVA).GT.AR$(PVR) ) GO TO 5 
S*.02+SCPT (WAVF ) /R VR 
GO TO 6 

S* • C ?♦ SOP T (WAVF ) /P VA 
ALPH Al » AlPHA-S *R VR 
PFT A1-RFTA + S*PVA 
X t A M 1 « XI AH 

IF ( JPAS* .ME .0 i GO TO 7 

CALI GlPRAI ( A# B p AA» BR# CC# AC# EIGA» WOPKC# NDIM# MG#NG» IP# IC# 

1 Al PHA1 TA1 » XI A«1 ,CSP) 

IPASS-0 

CAll LPfAl ( A > 8 > A A # PR # C C # UU# UWRK # VV# VWRK # H# NC # I R# IC# 
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COSAl 
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COSAL 
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COSAL 
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COSAl 
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COSAL 
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COSAL 
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COSAL 
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COSAL 
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r m 

COSAL 
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COSAL 
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1 HPHA1,BETA1, XLAM1,VA1,VB1,CSP*W0RK> 

COSAL 

2689 


IF fIGLne.FQ.?) JP AS S» 0 

COS AL 

2690 


IF (IPP7.FO.0) GO TO 8 

COSAL 

2691 


WRITE (6»11 > 

COSAL 

2692 


WPITC (6,9) ITFR, A L PHA1 , B ETA 1 , XL AM 1# V Al » VB 1 

COSAL 

2693 

8 

CC* J T INIJF 

COSAL 

2694 


PV/*PFAL (VAl) 

COSAL 

2695 


PV° • pc At ( Vft 1 ) 

COSAL 

2696 


AVA-A I VAG ( VAl ) 

COSAL 

2697 


AVP»ATKA<X<VP1 ) 

COSAL 

2698 


ALPMA?«PVA* (FRE0-9FAL (XLAM1J) 

CnSAL 

2699 


PET a?«RV°*(FRFO-REAL (XL A Ml) ) 

c ns al 

2700 


Spr-tvA^? + RVP**? 

COSAL 

2701 


AL PMA2- At PHA2/S*0* ALPHA 1 

COSAL 

2702 


»ETA2.PETA?/Co D 4-8f TAX 

COSAL 

2703 


PFTUPN 

COSAL 

2 7 04 

C 


COSAL 

2705 

c 


COSAL 

2706 

9 

F PR M AT (/1X,25HSTARTUP ITERATION ITER • . 1 5/1T , 8HALRHA - ,FIO. 6. 5XC0SAI 

2707 


1 * ?H BETA • 9 F10.6*5X» 8 H OH EG A « , 2 6 20 . 13 » / > IX » 

5HV A - •2E20.13*10X*5HCOSAL 

2708 


2 V P - *?FZC.13/> 

COSAL 

2709 

10 

F p h a T ( /I X, 77HUAPN INC — STARTUP ROUTINE MAS 

EXCEEOEO 10 ITERATIONSCOS AL 

2710 


1— C wr CK S T A ° T U p RESULTS — /) 

COSAL 

2711 

11 

F Of PAT UX,?OHSFCnNO STARTUP POINT) 

COSAL 

2712 


... e k r 

COSAL 

2713 


SUP ROUTINE OPTIMAL < F PR Q , A L PH Al , R E TA 1 , XL 1 » V A 1, V B1 , AL PHA2 » R E TA 2 » XL2C0SAL 

2714 


Ip VA2t VR.?» A, R) 

COSAL 

2715 


COHMTN /OPTSTS/ 01*G2,H,HN 

COSAL 

2716 


COf-PlFT VA1 # VR1»VA2,VR2, YL1,XL2 

COSAL 

2717 


Xy.SORTIRFAl(VAl)**2+PFAL(VRl)P*2) 

COSAL 

2718 


XA! -PE At ( VAl ) /XX 

COSAL 

2719 


XP1-RRAL ( V P. 1 ) / X X 

COSAL 

2720 


XX« S ro T (PfAL ( VA2 )**2+ 0 EAL(VB2)*+2) 

COSAL 

2721 


XA2-PF/.1 ( V A 2 ) / X x 

COSAL 

2722 


XP2-PEAL ( VP2) /XX 

COSAL 

2723 


61-XR1*AIHAG(VA1 )-YAl*AIMA6(V01> 

COSAL 

2724 


G?-X«2tAlMAr.( VA2)-XA2*AIMAG(VB2) 

COSAL 

2725 


H* ( AIPHA2-M.RHA1 )*XP2-XA2*(RETA2-BETA1) 

COSAL 

2726 


HN. (At RHA2- ALPHA 1 ) ♦XA?MRETA2-BETA1)*XB2 

COSAL 

2727 


GAN* -G1 / ( C2-G1 ) 

COSAL 

27 28 

1 

GA M » GAN-1 

COSAL 

2729 


IF (GAN*M*G?*LT#0) G AN -2 . *G 2 *H /S OP T ( ( A I M AG ( V 

A2)**2+AlMAG(VB2)*+2)*CnSAL 

2730 


1 MS * 2 ) 

COSAL 

2731 


Df«XR ?*GA N*M+ ( FREQ-REALt XL 2) ) +XA2/XX 

COSAL 

2732 


rP--XA2*GANTH+(FPEO-REALCXL2) )*XR2/XX 

COSAL 

2733 


A * A t PH A2 + 0 A 

COSAL 

2734 


R* P FTA2+P B 

COSAL 

2735 


RETURN 

COSAL 

2736 
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o 
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FNP 

SUPPOUTINF IU ( A,N,NDIM, IR,IC) 

THIS POUTirE OPTIMIZED FOP COC CYBEP 175 AND CDC 7600 
PPfGPAH TO PEPcopm FUtLY PIVOTED IU DECOMPOSITION OF GENERAL 
Cr*°LEX APPAY A 

CHPPLEY A(NDlH#l)fP#C 
DIMENSION JP(n» ICC1) 

COH-PN / Ll!l / XMAX.P,NPRX,M,ICT1#ICT2.K1 
NPP I-N 
ICT W*HDI» 

Pn i i«i,n 
IP(M-I 

1 IC(I)-I 
* *1 

L-K 
M »K 

XMAX • APS (PEAL C MK*K) > ) ♦ ABS U I MAG < A ( K , K ) ) ) 

PP ? 

DP 2 J«K # N 

Y«A»SI peal c A ( T » J> >>♦ ABS( A I HAG ( A( I # J ) ) ) 

IF (**AX.GF.Y) GO TO 2 
XMA X -Y 
l • T 

H.j 

2 CONTINUE 
PD 9 K ■ 1 j N 
IPt-IP(L) 

IP (1 > - I o (K > 

IP(K > * I C* t 

ICN-IC (“) 
ir ( M )• ir (k ) 
ir (x ) . ip,- 

IF (L.FP.K J GO TO 4 
DO 3 J *1 f N 
P* A ( K t J) 

A(M»J)-A(L,J) 

3 A(t,J).P 

4 IF (M.FC.K) GO TO 6 

nr 5 i *i # n 
R-A(I»K> 

A(I#K)»A(IfP?) 

5 A( I , Y) -R 

6 C ■! • / A ( K f k ) 

A ( P » K J «C 

T F (K.EC.N) GO TO 9 
Kl-K+1 

XYAV.ABS (REAL (A(Kl,»a) H +ABS (AIM AG(A(K1,K1 )) ) 
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L-Kl 

M.K1 

00 7 T»KIfN 

7 MI,KKn(I,K) 

on e r-Ki,N 

P- A f r * K ) 

X“AX 0»X^AX 
ICT 2 ■ < I-K ) *2 

CAU OPT (ACK#Kl),ACI,Kin 
IF ( XMAX.NF.XMAXO) l«T 

8 C^TINHE 

9 CONTINUE 
PFTHFN 
ENP 



JOfNT 

OPT 


FNTPY 

PPT 


US E 

/IU1/ 

» 


this ROUTINE OPTIMIZED 

* 


AMD COC 7600 COMPUTERS 

X*AX 

«s$ 

1 

B 

RSS 

2 

►* 

BSS 

1 

H 

RSS 

1 

ICT1 

r s s 

1 

ICT2 

BSS 

1 

K 1 

RSS 

1 


USF 

+ 

OPT 

data 

0 


: s x 7 

A 1 


= 591 

1 


SA3 

X*AX 


S A 1 

B 


5A2 

P 1+8 


S AA 

N 


^A5 

M 


PXO 

X3 


SA3 

ICT1 


S3* 

X A 


5 A 4 

ICT2 


SR 5 

X 5 


S45 

*1 


537 

x 3 


5B6 

XA 


s 5 R 3 

X 5 


S B 3 

B 3—9 1 


5^2 
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5 A A 

X 7 


,SA3 

XA 


FOR COC CYBER 175 


COSAL 

2785 

COSAl 

2786 

COS At 

2787 

COSAl 
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COSAL 

2789 

COSAL 

2790 

COSAL 

2791 

COSAL 

2792 

COSAL 

2793 

COSAL 

2 79A 

COSAL 

2795 

COSAL 

2708 

COSAL 

2797 

cns AL 

2798 

COSAL 

2799 

COSAL 

2*00 

COSAL 

2801 

COSAL 

28C2 

COSAL 

2803 

CO*Al 

28 OA 

COSAL 

2 e 05 

COSAL 

2 8 C 6 

COSAL 

2«07 

COSAL 

2803 

COSAL 

2809 

COSAL 

2810 

COSAL 

2611 

COSAL 

2812 

COSAL 

2613 

COSAl 

281A 

COSAL 

2615 

COSAL 

2816 

COSAL 

2817 

COSAL 

2619 

COSAL 

2819 

COSAL 

2820 

COSAl 

2821 

COSAL 

2822 

COSAL 

2823 

COSAL 

282A 

COSAL 

2825 

Cns AL 

2 R 2 6 

COSAL 

2827 

COSAL 

2828 

COSAL 

2629 

COSAL 

2620 

COSAL 

2831 

COSAL 

2832 
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SA5 

A4 + B1 

S A 5 

X 5 

5 A A 

A3+B1 

FX 6 

X 3 *X1 

PX7 

X 5 

S A 5 

A5 + B1 

F X 3 

X3 + X2 

SB3 

B3 + R 1 

FX 6 

X7-X6 

F v 7 

X A *X 2 

F X A 

X A * X 1 

N X 6 

X 6 

F X 5 

X 5-X 3 

F X 6 

X 6 ♦ X 7 

S A 3 

A3+B7 

F X 7 

X5-X4 

A X A 

X 6 pB 2 

A X 5 

X7,B2 

RXA 

X6-X4 

P X 5 

X 7-x 5 

M X 6 

X 6 

F X A 

X4 + X5 

?A5 

A3 + B 6 

NX7 

X 7 

F A 6 

A5-R7 

FX 6 

XO-XA 

S A 7 

A 6 ♦ 8 1 

R X 7 

XA 

SAA 

A 3 + R X 

D L 

X 6 > S K I P 

PXO 

X 7 

585 

es 

LT 

B 3 » B A # L 

FX 6 

P5 

S Afc 

N 

PX7 

XO 

SA7 

XMAX 

FQ 

END 

OPT 


SUP P OUT I NE SOI VF { F, A , K , N, NO I M, IR , IC > 

PROGRAM TO SnLVE K E OUAT TONS AX - F (DIMENSIONED NDIM) 
ASSUME PRFVinus CALL TO ROUTINE LU HA$ BEEN MADE 

COMMON /DUMW®*/ g 

COMPLEX A«UPlH,l) f F (NO 6(100 )#B 
OIMFNS ION IP(1), IC(l) 

NI-N+1 

) 


COSAL 

2833 

COSAL 

2834 

COSAL 

2835 

COSAL 

2636 

COSAL 

2837 

COSAL 

2838 

COSAL 

2839 

COSAL 

2840 

COSAL 

26M 

COSAL 

2842 

COSAL 

2843 

COSAL 

284A 

COSAL 

2645 

COSAL 

2 BA 6 

COSAL 

2847 

COSAL 

2848 

COSAL 

2840 

COSAL 

2850 

COSAL 

2851 

COSAL 

2852 

COSAL 

2 P 53 

COSAL 

2e54 

COSAL 

2855 

COSAL 

2856 

rnsAi 

2857 

COSAL 

2858 

COSAL 

2 R 5 9 

COSAL 

2 P 60 

COSAL 

2861 

COSAL 

2862 

COSAL 

2863 

COSAL 

2«64 

COSAL 

2865 

COSAL 

2866 

COSAL 

2667 

COSAL 

2868 

COSAL 

2869 

COSAL 

2870 

COSAL 

2871 

COSAL 

2872 

COSAL 

2873 

CHSAL 

2874 

COSAL 

2875 

COSAL 

2876 

COSAL 

2877 

COSAL 

2878 

COSAL 

2879 

COSAL 

2880 


o o 

-n ^ 
"0 O 
02 
O > 
70 F 

o -a 

c 5 

> © 

r“ pi 


£S 



<VI (O if) 


61 


VO 

U1 


00 7 K*-1,K 
PC 1 T«1,N 

ipi-ip(I) 

1 6(I)-FURI,KK> 
nn 3 w,n 
iw-i 

p-r< i) 

no 2 j-i,ri 

2 P--P-AC I# J)*G( J) 

3 c { r > - p 

or 5 IT-1, N 
I-M1-TT 
T1 «7 ♦! 

p-ccn 

IF ( I ,F0*N> <50 TO 5 
ro 4 j«u,n 
* B«»-A(I,J)*G{J> 

5 GU)-MA(M) 
on 6 T-1»N 
ICI-IC (!) 

6 Fur i* ).r, ( n 

7 CPNTIwiif 
P F T I ' P N 
FNO 

Si'PPOUTTNF SntVTRN f F, A* N» MO IH, IR, IC ) 

cnv^rn /pumuqk/ g 

Cny?t5x A(»DTM,i) v Ffi),G(100>fft 

OXPFNStrw I p ( 1 1 ^ ic < II 

NT • W + 1 

OP 1 T«1»M 

!C!«JCH> 

i 6<n«F(icn 

6 M )>A(1»1)*G (] ) 
on 3 T*?,N 
Tl-I-1 

8*0(1) , 

DP 2 

B • fl - A ( J » I ) * G t J ) 

gci 

Pti 5 IT-2, N 
I-N1-IT 
IW*1 
fi-P(I) 

IF ( I.FO.W) GO TO 5 
OP A J*T1,N 
B-F-ACJ, I)*G(J> 

GU)-P 

rtj 6 i - 1 , n 


COS At 

2881 

cnsAi 

2e82 

COSAL 

2883 

COSAL 

2884 

COSAL 

2885 

COSAL 

2886 

COSAL 

2e87 

cnsAt 

2888 

C n S A L 

2889 

CnSAL 

289 0 

CHS AL 

2891 

COSAL 

289? 

COSAL 

2 8 93 

COSAL 

2894 

COSAL 

2895 

cnsAL 

2896 

cpsal 

2897 

COSAL 

2e98 

COSAL 

2899 

CPSAL 

2900 

COSAL 

2901 

COSAL 

2902 

COSAL 

2903 

COSAL 

2904 

COSAL 

2905 

COSAL 

2906 

COSAL 

2907 

COSAL 

2908 

COSAL 

2909 

COSAL 

2910 

COSAL 

2 911 

COSAL 

2912 

COSAL 

2913 

CPSAL 

2914 

COSAL 

2915 

COSAL 

2916 

COSAL 

2917 

COSAL 

2918 

COSAL 

2919 

COSAL 

2920 

COSAL 

2921 

COSAL 

2922 

COSAL 

2 923 

COSAL 

2924 

COSAL 

29?5 

COSAL 

2926 

COSAL 

2927 

COSAL 

2926 


O O 

-n x 


no CD 

o 5 
o > 

=0 P 


lO "0 

c g 

> CD 

r- rn 


-< ta 



9£62 

1VSU3 

l - DX3I 


S£62 

1VSU3 

1 • A 


*£62 

1VS03 

30N11NJD 


££62 ' 

1VSU3 

0* 01 09 ( 0832 * iN * U'HIV *80* 0832 *3 N* (l^)dV) 31 


2162 

1VSQ3 

SE 01 09 l P *03* I) 31 


Ub2 

1 V SO 3 

VI • I 5£ 00 


0£6Z 

1VS03 

rr-n - r 


6962 

1VSU3 

i*i • rr o* oq 


9962 

1VSU3 

i+i * n 


£962 

1VSQ3 

T-l * 1 


9962 

1 V S U 3 

SIT U1 09 (t *03* 1) 31 


5962 

1VSUD 

5* U1 09 (2*03*0x31)31 


*962 

1VSU3 

3 nun NO 3 


£962 

1VSU3 

3 * (I'W)IV 


2962 

1 V SO 3 

U*w)iv * ( 1 *f ) X V 


T9 62 

1 V SOD 

( I * r ) i v • 3 

«5 >* 

0962 

1VS03 

j •' ( I * W ) a V 

6562 

1 V S 0 3 

( I )av * ( i * r i «v 

HI □ 

cs < 
< z> 

CL O’ 

6562 

IV SOD 

(l*DdV • 3 

£562 

1VS0D 

wi oa 

9562 

1 V SUD 

3aMlHU5 

5562 

1VSUD 

3 « ( A * I ) X V 

*562 

1 V SO 3 

(w*niv - < r * i ) i v 

-~5 QC 

£562 

1VS0D 

cr*inv * 3 

< o 

2562 

IV SOD 

3 * U*I )d7 

S o 

1562 

1VSU3 

(tf*I)dV « (P *1 ) 37 

o °- 

0562 

1VSUD 

( f * I ) 8 V - 3 

5 u. 

o o 

6*62 

1 V SOD 

VI • I Dt UO 

9*62 

1 v SuD 

02 01 U9 (A *03* r> 3 1 

£*62 

IvSUO 

r i mo 


9*62 

1 V S 0 3 

0£ 01 09 


5*62 

IV SOD 

.< « 1 


**62 

1VSCJ3 

i ■ X 


£ *62 

TV SO 3 

XlUV8d*XX0Voa - 2bd 


2*62 

175QD 

X I o V «/ 3N0 ■ XiOVad 


1*62 

lVSuD 

XIQVd*XiUVd « 2d 


0*62 

TV SOD 

/fib* 0*0*1 *0*0/5 61 d *3 NO *0832 ViVU 


6£62 

1VSCJ3 

/o* 2/xiovd viva 


6£ 62 

1 v SOD 

AtfuOUN 1VDXJJ1 


££o 2 

TV SO 3 

298 *XIQV8d*S*8*9*D* 3*2 VS6id *3NU*Ud3Z*XIUV 8 l?3d 


9 1 62 

IV SUD 

rr*tVD*3X*i*vr a3D3im 


5 £6 2 

1VSGD 

(N)G*(T*VI)IV*(T*VI )dV 1 V3 a 


*£62 

1 V SO 3 

V )i * V X * N 8 39 3 INI 


££6Z 

TV SuD 

(U*1*X*VI*N*IV*8V) 3DNV IVd 3N i IflJa dilS 


2£62 

1VSUD 

0.33 


T£62 

TV SOD 

NdOi3d 


0£62 

TV SUD 

(1)9-1101)3 


6262 

IV SOD 

U>al-Idl 


29 
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GO TO 5 

COSAL 

2977 

40 

continue 

COSAl 

2978 


GO TP 50 

COSAL 

2979 

45 

K « K + l 

COSAL 

2980 

50 

PO 60 J • K,L 

COSAL 

2981 


nn 55 T • K,t 

COSAL 

29 *2 


IP U .60. J) GO TO 55 

COSAL 

2983 


IF <AR(I*J) • NE • ZERO .OR. AI(I,J> .NE . ZERO) GO TO 60 

COSAL 

29R4 

55 

CONTINUE 

COSAL 

2985 


M ■ K 

COSAL 

7986 


IFYC ■ 2 

COSAL 

2997 


GO TO 5 

COSAL 

2988 

60 

continue 

COSAL 

2989 


OP 65 T » H,L 

COSAL 

2990 


0(1) • one 

COSAL 

2991 

65 

CPNTINUF 

COSAL 

299? 

70 

NprrNV ■ .FAtSE. 

COSAL 

2993 


DP 110 I - K,t 

COSAL 

2994 


C - 7E®P 

COSAL 

2995 


P * ?£PP 

COSAL 

2996 


DO 75 J • K # L 

COSAL 

2997 


IF ( j .60. I) GO TO 75 

COSAl 

2998 


c - c+aas< A» u,rn+A&$ <Ai(j» m 

COSAL 

2999 


p . P+A«S(AR(I,jn+A«StAl(t>J)) 

COSAL 

3000 

75 

CPNTlNttr 

COSAL 

3001 


G - p*RPAm x 

COSAL 

3002 


F • ONE 

COSAL 

3003 


S • C 

COSAL 

3 CC4 

00 

, IF (C .GE. G) GO TO 85 

COSAL 

3005 


: F - F*QADIX 

COSAL 

3006 


C • C*P? 

COSAL 

3007 


GC.TO 80 

COSAL 

3008 

85 

G - F + RAOX 

COSAL 

3009 

90 

IF <C .IT. G) GO TO 95 

COSAL 

3010 


F • F* PP A<M X 

COSAL 

3C11 


C • r*DB 2 

COSAL 

3012 


GP TO 90 

COSAL 

3013 

95 

IF I (C ♦R ) /F .GE. PT95*S) GO TO 110 

COSAL 

3014 


r m ONE/F 

COSAL 

3015 


PCI) ■ PC T)*F 

COSAL 

30 6 


NOCPMV - .TPUF. 

COSAL 

3017 


OP 100 J ■ K # N 

COSAL 

30 1 R 


AP(I,J) • AR(I,J)*G 

COSAL 

3019 


A I ( I » J ) - AI(hJ)»6 

COSAL 

3020 

LOO 

CPNTTNUF 

COSAL 

3021 


on 105 j • m 

COSAL 

3022 


A° ( J » I ) • AP(J,I)*F 

COSAL 

3023 


A T t J* I ) • AI(J*J)*F 

COSAL 

3024 


ORIGINAL PAGE IS 
OF POOR QUALITY 



W -J 

o <C 
■SC Z> 
a. O’ 


-J ^ 
< o 
z o 

iro 

o 0- 

£ u. 

o o 


240 £ 

"IVSOO 

U 0 £ 

" 1 VSU 0 

040 E 

IVSOO 

690 £ 

"IVSOO 

890 £ 

IVSOO 

490 £ 

moo 
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TVSuO 
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IVSOO 

45 0 E 

IVSOO 

95 0 £ 

3 V SU 0 

5 5 0 E 

IV soo 

V SO E 

ivsoo 

£5 0 £ 

soo 

2 S 0 E 

IVSOO 

IS 0 £ 

1 VS 0 D 

0 S 0 £ 

IvSUD 

6 V 0 E 

1 V su 0 

8 V 0 £ 

1 VS 00 

4 *>oe 

IVSUD 

9 V 0 E 

IvSUO 

S* 0 £ 

IVSOO 

W 0 £ 

IVSOO 

£ V 0 £ 

IVSOO 

290 E 

IVSOO 

T* 0 E 

IVSOO 

0 * 0 £ 

IVSUO 

6 £ 0 £ 

IvSUO 

dtOE 

IVSOO 

4 £0 E 

1 VSU 0 

9 E 0 E 

IVSOO 

S £0 £ 

IVSOO 

VE 9 E 

1 VSU 0 

££ 0 £ 

IVSOO 

2 EQ E 

IVSOO 

I £0 £ 

ivsoo 

0 E 0 E 

IVSUO 

620 £ 

ivsoo 

8 20 £ 

IVSOO 

420 E 

IVSOO 

920 £ 

IVSOO 

S 20 E 

IVSOO 
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wia#*n o*f ja 

S* 01 U9 { Id M *1 1 * f 1 ) Jl 
l* *- Id M 


/ 0 * 0 /Od 3 Z 

, „ (IAM2)2i>«<dAMl>2i) 

MCI>2A«A>MIXM2m>MdXMl)Il>M(I)U«x> 

A'X 

u*3ZM2)2lM2>U‘IA‘dA«lX'd* 

ldW«IWW*rM‘W<ld**Vl 

(I‘VI)IVMI<VI)dV 

(Uai'vi-N'v* 

<oi 4 vi'NM*>t‘iv<dV> 


I- 1 -V 1 

viva 


i 

jOrfiivAi.ioa 
xaid^ao 
i?id 
6302m 
ivj d 
d 3 0 J 1 N I 
OSS 3h 3Nlif}0ddns 


JM 3 

NdOl 3d fill 

04 01 09 (AnuOUN) 31 
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65 


25 


30 

35 


DO 35 I-MP!#L 
YR • &P ( t » H— 1 ) 
YT«iI(I,W-l) 

IF (YR • E 0 • ZERO 
y-y/y 

A® ( I#F-1 ) »YR 
AI(I,f*-l J*YI 
DO ? 5 J-M,N 

A T C T • JI-4IU, J) 
CONTINUE 

rn 30 j-i , l 

AP< J,K)«AR(J,N) 
Al(J,M)*AI{ J.K) 
CONTINUE 
CONTINUF 

AO continue 

45 RETURN 
FN" 

SUP P OUT INF CMPyLR (A,N,I 
INTEGER 
PEAL 
INTFGEP 

♦ 

PEAL 
OATA 
OAT A 
I F-R 
JEP 
IAA 

NN - N+M 
N1 « 1 
N2 • 1 
t • 1 

P - 1 

NP • Ml — 1 
KA1 - 2 
00 a 5 j * 1 » N 
K - K A 1 

on 30 I * IpH 

VKINM+I) • 

A ( L ) - A(K-l) 

K ■ K+2 
t • L + l 
CONTINUE 
00 AO I « IpH 
^ A ( t ) * WKINM+I) 


•AND. Y I . EO. ZERO) GO TO 35 


— YP*AR ( M» J ) +YI* A I ( M# J) 
YR*AI(M, J)-YI*AR(M, j) 


♦ YP*AP(J f n-YT*AI(J # T) 
* YR* A I (J p I)+Yl*ARt J# I) 


N,IA, 
4(1), 
JEP, I 
N2PT, 
ROE L° 
ROEl p 
ZERO, 


0 

0 

I A + 1 A 


4, W,WK,IER) 

IER 

v(i)»wKcn 

AA,MN,N1,N2,L,P,NH,KA1,K,I,INFER,NPI, 
JU, J 

, ZERO, ONE , ten, THOUS 
/16414000000000 00000 08/ 

ONE/O.O, 1.0/, TFN/10. 0/#TH0US/ 1000.0/ 


A ( K ) 


30 


COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

CnSAL 

COSAL 

COSAL 

COSAL 

cnsAt 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 


3073 

3074 

3075 

3076 

3077 

3078 

3079 

3080 

3081 

3082 
3003 

3084 

3085 

3086 
3007 
3088 
3C99 

3090 

3091 

3092 

3093 
30<H 

3095 

3096 

3097 
3C98 

3099 

3100 

3101 

3102 

3103 

3104 

3105 

3106 

3107 

3108 
3 5 09 

3110 

3111 

3112 

3113 

3114 

3115 

3116 

3117 
3119 

3119 

3120 
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o 

*5 


60 


65 


<>005 


l • l+l 

continue 

^ A1 • KA1+I4A 
CONTINUE 

CALL BALANCE ( A ( 1 ) , A < N+l ) # N, NN, K, l , WK ( N1 ) ) 

CALL HFS'C (4(1 ),A(N+1),K,L,N*NN,WK(N2>) 

CALL Fir.LPC ( A ( 1 ) , A ( N*1 ) ,K ,L , N, NN, W( 1) , W( N + l ) > INFER, JER ) 
N? » N ?— 1 
DO 60 I-1,K 
N P T - N4l 
N2PT - N2 + I 
WK(M?PT) • w ( NP I ) 

CP'TmiF 
JV • N+N 
J ■ u 

OP 66 I • 1 » M 

wuu-1) « UCJ) 

N?PJ ■ H2+J 
W(JVl) - WK ( N 2 P J ) 

JV - JV-2 
J * J-l 
CONTINUE 

IF (IEP • NF • 0) CALL UEPRTST ( I ER t 6HC MP XLR ) 

IF (JFP • FQ » 0) 00 TO 9005 

IFF - JcP+lNPEP 

CALL UEPPT5T ( I E R , 6MC MPX l R > 

P F T UPN 
END 


SUP p OUT T k *E FIGLPC ( HP , HI , K t 1 » N • I H, WR , V I » INF £p , IE ft ) 


INTEGER 
PFAL 
IK'TFCEP 

* 

R FA L 

► 

COMPLEX 

FOUIVALENCF 


TATA 
DATA 
INF F p ■ 0 
IFP-0 

00 5 I-l.N 

IF (I *CE. K *AND 

vpcn-MP(i,i) 

wit n-Hid,n 

!5 CONTINUE 


W #L ,N, !H, INFER, IER 

HR (lH»n»Hl(fH»l),VP <n,WI(l) 
I»NN,ITS,NM1»NPL,IL,N,WN1,NMJ,J # M1,MM,MP1, 

U(2),T2(?),T3(2), ZERO, ONE, TWO, PDELP,TR,TI, 
SP,SI,VP,XI,YP,YI,ZP,ZI 

X, Y, Z 

(x # ti (m • (Tin )• xp) >(Ti( 2) »xn» 

C Y» T? (1 n» (T2(1)»Y*)» (T2(2)»YX)» 

(Z,T3(1> ),(T3(li,ZP) ,(T3(2) ,ZI) 

zepo, one, t wo / o. o. l. 0,2.0/ 

P0EL»/ 1641400000C0000000008/ 


I .LE. L) GO TH 5 
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COSAL 

COSAL 
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COSAL 
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COSAL 

COSAL 

COSAL 

CnSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 

COSAL 


3121 

3122 

3123 

3124 

3125 

3126 

3127 

3128 
31 ?<> 
3130 
33 31 

3132 

3133 

3134 

3135 

3136 

3137 

3138 

3139 

3140 

3141 

3142 

3143 

3144 

3145 

3146 

3147 

3148 

3149 

3150 

3151 

3152 

3153 

3154 

3155 

3156 

3157 
315* 

3159 

3160 

3161 

3162 

3163 

3164 

3165 

3166 

3167 

3168 
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LEVEL * IEP 
ifp - ipvnto 


* IF 

(LEVFL 

.1 T < 

,0) 

IFVFL 

■ 4 

IF 

(LFVFL 

• GT, 

.4) 

LEVfl 

» 4 

GO 

TO 30 





5 cor 

■TIMUF 





IF 

(LFVPl 

.1 T « 

>4) 

go m 

30 


CALL GFTT0U<1,MIN,I0UNIT) 

IF UFQnF.Fc,l) W® ITE ( TOUN IT ,50) IEP,NA*EO, I EO, NAME 
IF (TEC^F.FO.Oi weiTF(l0UNIT,50) t£P*NAME 
30 IEOOF » 0 
PFTl'PN 

35 FOPKATUQM *** TEPMINAL E R RPR , 10X * 7H ( ! E R • ,13, 

1 20H) POOH SUBROUTINE — #A6tAl»&6) 

<*0 FORMAT (36H *** WARNING WITH Fly £PRr>P (jgp . ,X3, 

1 20H) FROM SUP POUT INF— ,A6#A1,A6) 

A5 FORMAT ( 1 8 H *+* WAPNfNG E R R PP , 1 1 X , 7H C T E* ■ ,13# 

1 20H) FRPM SUBROUTINE— #46»A1,A6) 

50 FOPHAT<?OH *** HNOFFINFO F PP OP , QX , 7H U F R • ,15, 

1 20H) F RfiH SUBROUTINE— ,A6,A1,A6) 

55 IFOOF . i 
NAMFO • NAJ-e 


5 

10 

0005 


PFTUCM 
f MP 

SU ft ROUTINE GETintjC 1 0 PT, N IN , NOUT ) 

INTFGFR I OPT, N IN, NOUT 

INTFGEP NINDiNDUTO 

^ AT * NTND/51INPUT/ , NOUTO/ 61 OUT PUT/ 


IF 

( inor.EO. 

3> 

GO 

TO 

1C 

If 

( I OPT • f 0« 

2i 

GO 

TO 

5 

IF 

( I OPT , NF » 

l) 

GO 

TO 

<>005 

NIK 

■ NINO 





NPU 

T • NpUTO 





Gn 

TO 9005 





NjN 

o ■ NIN 






GO Tp 9005 
NPIJTD • NOUT 
PFTUPN 
FNP 


COS At 

3313 

COSAL 

3314 

COSAL 

3315 

COSAL 

3316 

COSAL 

3317 

COSAL 

3318 

COSAL 

3319 

COSAL 

3320 

COSAL 

3321 

COSAL 

3322 

COSAL 

3323 

COSAL 

3324 

COSAL 

3325 

COSAL 

3326 

COSAL 

3327 

COSAL 

3328 

COSAL 

3329 

COSAL 

3330 

COSAL 

3331 

COSAL 

3332 

COSAL 

3333 

COSAL 

333* 

COSAL 

3335 

C n SAL 

3336 

COSAL 

3337 

COSAL 

3338 

COSAL 

3339 

C^AL 

3340 

COSAL 

3341 

COSAL 

3342 

COSAL 

3343 

COSAL 

3344 

COSAL 

3345 

COSAL 

3346 

COSAL 

3347 

COSAL 

3348 

COSAL 

3349 

COSAL 

3350 

COSAL 

3351 


o o 

-n 33 
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O 2 
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30 r" 
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APPENDIX B 


Listing of WING 



onnonnon 


fO 

O 
C T\ 


c 

1 


r 

? 

3 

A 


C 

5 

r 

C 


C 

C 

6 


7 


P e n r. o ^ h wiNG( INPUT, OUTPUT, TAP F 5- INPUT, TAPF6- OUTPUT, TA PF 7 > 

THIS PROGRAM CALCULATES THF LAMJNAP RGUNDARY LAYFft pN TAPFPEO 

AND 5WFPT WINGS WITH AOIAPATIC WALL TFMPEPATURF 
INPt-TS ARFI STCFAMWISF A T ° F 0 I L C OOP D 1 N A T f S , PRESSUPF 
OISTS IPlfTIOKj in TFP-S OF CP, A N p MASS FLOW PATE THROUGH 

C A l C • 1 1 ATI f 1 NS A o F PASFO PN CT M If At FLOW ASSUMPTIONS 


THE 


WING 
WING 
WING 
WING 
WING 
WING 
WING 
WING 

11 )• Y( 101 ) lC0/ N7T#N7 ’ NP ' rT,y,PrFS,CKArH#TT ^ TM10 ^»OFTA(101),A{10wrNG 

C. MPN / n LCl/ HE , PR ♦ C *U'F S • L'F S »Cr L C 51 ) , RET A1 ( 51 ) f UP ( 51 WF ( 51 )• 7 ( 51 w IN'G 

2 51 lUfp (51 ) ! 151 ) ’ PMCE <51 * ,V ° * 51 1 ,CMUF < 51 > <51 >, P3(*>1 ) ,PA(51 WAIVING 

ion»nriini,2i.Pnoi,?),oFNMioi.?),f«inoiwiM6 

CP^in /»,.(./ TVBT, 4 ] VGP 

CALL INTIAI ~ W J NG 

N 7 * ] WING 

I S P l V 2 ■ 0 WING 

r F l p V • o WING 

IT * A * » 1 0 WING 

WING 


TGPpw-r 

WP I Tr < hr 1 1 ) NZ P YC (N 7 ) 

IT »P 
I T • I T + J 

IF ( T T . lE . ITmav ) GO TO 5 
WRITE (6,10) 

GO TO 9 

IF USniVp.FO.1 ) CALL FLUID 
CALL c o f F 
CALL SPL Vi^ 

C^FCW F p R CONVFPGFNCE 
K U»«<nr| v(i) j.tF.O.COOl ) GO TO fc 
IF (T$ n lV2«F0,l > CALL SPLV? 

GO TO A 

ADD FNFPGY PCUATIPN AFTFR CONVEPGFNCE 
IF (TSPL V2.FQ.C ) GO TO 7 
CALL snv? 

GO TO p 

IF fCYACH.FC.OaO) GO TO ft 


WInG 
WING 
WING 
WING 
WING 
WING 
WING 
WING 
WING 
W I M G 
WING 
WING 
WING 
WING 
WING 
WING 
WING 
WING 

WJNG 
WING 
WING 
W T M G 
WING 
WING 


3 

? 

3 

A 

5 

* 

7 

ft 

9 

10 

n 

12 

13 

1 A 

15 

It 

17 

lft 

19 

20 
21 
2 ? 
23 
?A 
25 
?t 
27 

2 ft 
2 9 

30 

31 
3? 
33 
? A 

35 
3* 
37 
3? 
39 
AO 
A1 
A ? 
A3 
A A 
A 5 
A6 
A 7 
Aft 


1 


I 


ORIGINAL PAGE $8 
OF POOR QUALIFY 


o o ec O a 


C 

C 

C 

10 

11 


GO TO ? 

F T A F OPPVTH AFTFP CONVFPGFNCF 

IF fA?S(TCN», 2 )),lf:'l'F- 8 ) GO TO 

IF CNP. 6 Q. 101 ) GO TO <5 

iGPrwiGPr*-*i 

IF ( IGFOW.GT.l ) GO TO 9 

U • 1 

CALI PPCFIt (U) 
nr to 3 

call pi ! t®ut 

IF (N7.rr.NZT) CALI 6 X I T 
GO TO ? 


Fnq^AT flH0*23MITFPATinNS FXCfFO I T M A X ) 

FPP^AT ( 1 H 0 # 4 Hm? ■,n, 5 X.fHX/C ■ # F 1 4 • 6 ) 

5 N.n 

SU pl >Ot»TlNF I NT I At 

CHK-m /PLCO/ K 7 T»M 7 ,NP,lTf X, POF S • CH ACH» TT# E TA ( 1 01 ) * OFT A UC 1 ) # A ( 1 0 W I N(J 

1 1 ) • Vf ] 01 ) WTNG 

COMMON /fin / HE,P 9 ,c*"UF$»HFS»CEl(*l),PFTAl( 5 n»ltEC 511 'UE( 51 ) , 7 ( 5 lviNG 
1 )^PF( 51 ) >PHI(53 >, PHTF (6 1 ) f XC (51 ) tCA'UF (51 ),P1 (51 )> P3 (51 ) » P4(M {yTNG 
?*»1)>3|P(51) 


?*? ) #f A?( 1C!»7 I 

/OAf./ IWH, Al, A?. AO* VGP 

OIMTMSI^N T!TlF(?n)* miF (63)# 0UF(51)» Of)W(51)# DPP(51) 

PF AP (5,231 TITLE 
PFAO (5,n> I WOT 

»FAD (5,24) NI#N7T*FTAf ,0FTA1,VGP 

prin X.FWLF,SwTP,C M ACH # UPFF»TPPFSfTT f P» 

X I N P 1 1 T » y 
FFAp (*,?5) 

PFAO (*=,?5) 

P F A 0 ( ? # 2 5 ) 

PFah <5, 2') 

PFAO (*,25> 

C M $ O-fA'AC H**? 

PP* WPFES/ (1716. *TT> 

HF5 *C ^ACH*SOPT( 1 . 6 * 1 716 . * TT ) 

IF (CAAfM.CQ.O.O) UFS-MPFF 
C M tJFS»?*27F-0P+TT**3 , 5 / ( TT + 1 90 .6 ) 

TTT*tt*(i * 0 + 0 . 2 *C W S 0 ) 


(A( T)*T«lfAII) 

( v ( T ) • 1*1 »N I ) 

<xr (I)#I« 1 ^TT) 
<P 4 (I),I« 1 ,KZT) 
(^LP(D>T-1,N7T) 


WING 

A 9 

WING 

5 C 

WING 

61 

WING 

5? 

WING 

53 

WING 

5 u 

WING 

5 e 

WING 

56 

WING 

57 

WING 

5* 

WING 

59 

WING 

60 

WING 

t 1 

WING 

6? 

WING 

63 

WING 

64 

WING 

65 

WING 

66 

WING 

67 

WING 

6* 

WING 

69 

OWING 

70 

WTNG 

71 

l V I N G 

7? 

(WING 

?3 

W I N G 

It, 

• WING 

75 

I U T N G 

76 

WING 

77 

WING 

7* 

WINS 

79 

WING 

eo 

WING 

fi 1 

WING 

p? 

WING, 

93 

WING 

64 

WING 

P 5 

WING 

P 6 

WING 

P? 

WINS 

8A 

WING 

99 

WING 

90 

WING 

91 

WING 

92 

WING 

9? 

WING 

94 

WING 

95 

WING 

96 


ro 

o 
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wp-TTT* 6006 .C 
PFV-UFS+PCFS* * INPUT /CPUFS 

A 1 • ] • + VG° 

A?- 41 +VGP *♦ 7 
A?- A 2 +VCP**’ 

C 

C CALCULATE SURFACE C 0 D&D I N ATE THETA 

DFt.-ACps ( 1 . 0 -A (in 
ETiUJ-PFL 

IF <AUKGT*a( 2 >) f T A ( 1 ) • -f) Ft 
nn * w*nt 
PHANG-AC nS(l* 0 -A(m 
IF (MI).LT.AU-Di Gn TO 1 
F T A ( I ) - P M a N G 
OP to 2 

1 ETA n ) «-puA^G 

? IF M(n.EG.O.fl) FTA(I)« 0.0 

3 rOMTTTUF 

C AtL S ° t INF ( Y, FT A t MT pHPL V) 

Tl F*T 4 \MC.G 1745 33 *Swt E ) 

TT F*T AN ( 0 *C 1 745 33 *$WTF) 

CP -T t. F-TTF 

y»X»SCCT( 1 . 0 +TLF** 2 )/CB 

TO A 

S F • S I N ( F T A ( I ) ) 

TCS.Tl.F-C« + A< I * 

FP . 1 . T 4 < c H* Y ( I ) 1 **? + TC $*TCS 

CF.?.c*f B*(-TCS*SF+Cn*Y(T)^DFLV(I)> 

X F * ( 0 * * S F + TC ^ * 0 F / F F / 2 , G ) * * ? 

YF«C *2 5 * (DF/FF ) ** £ 

ZF.(CB*n)FLV(n-Y(i)*nF/FF/ 2 < oj)+ < i ? 

TFTA( n-SCCT( (YF + YF + 7 F) / FF) 

* CTNTTM'F 

CAt L IMTFG (FTA,nFTA#C#NI ) 

C 

C CALCULATF VFLOCtTY COMPONENTS 

r 

P n 10 I * 1 » N 7 T 

IP (C M AC H* f 0 . C • 0 ) GO TO 5 

DPP (I )■! 'C + 0 « 7 *P 4 (T J * C M 5 0 

PP ( I )* 1 . 0 +U .O-OPD ( i j ** 0 .?P 571 A J /( 0 .?*CMS 0 ) 
r-r to (■ 

5 PF { I ) *1 , 0-pa t I ) 

OPP < I )«a .c + n?fF*uPFF*PM n /TT/3432.0 

IF (T . GT .1 ) GO TO 7 
Of l-ACOS ( 1 . 0 -YC (I) ) 
p? ( n » r f i 


6 


3 


WING 

07 

WING 

08 

WING 

0 0 

WING 

- 100 

WING 

10! 

WING 

10? 

WING 

103 

WING 

1 0 A 

WING 

105 

WING 

108 

WING 

107 

WING 

104 

WING 

3 00 

WING 

no 

WING 

m 

WING 

n? 

W T N G 

113 

WING 

1 1 A 

WING 

115 

WING 

31 6 

WING . 

117 

WING 

UP 

WJNG 

no 

WING 

320 

WING 

-121 

WING 

12? 

w I N G 

1 ?? 

WING 

1 ? A 

WING 

125 

WING 

126 

WING 

12 7 

WING 

128 

WING 

l?o 

WING 

130 

WING 

131 

WING 

132 

WING 

1 33 

WING 

1?4 

WING 

135 

WING 

136 

WING 

137 

WING 

1 3 a 

WING 

130 

WING 

1 AO 

WING 

1 41 

WING 

14? 

WING 

143 

WING 

144 
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4 


IP (XCU>.GT.yct2M P3CD— rFL 
GC TT 10 

7 pHArG.«cosu*o-xcnn 

if t«c<n«LT»xc(T-n) go to e 

P3 t I > -PHAN'G 

G n n 9 

ft P 3 { ! ) ■— PHANG 

o tp (vrm.Fo.c.o) P3d»-o.o 

10 CCNTTM1F 

r«ll rt^ic (C*PTA # NI»P3»N7T»Z) 
ni'C (1 y .$QPT f pc ( } ) ) 
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call sniNf nvF,7.NZT,nr)w) 
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00 12 I-UN7T 
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VOITC (6.27) TTTIF 

WO ITE ( 6,2*) C* ACH,UFS,TPPFS, TT#PP,ROFS,rMUF S»RFY,XIN 
1 TF,NI,N7 T,FTAF, oetai ,vgp 
WRIT? <h,29) II, Af T)»Ytl)iI>bN!) 

wpitf (6,*c) n#xrn) f 7cn,pR{i).R4<r),BLP(n#DUF(n, 
i • r p k < n#i-],Nzn 

CM.CULATIF C npep IC IF NTS FOP PL EONS. 

UF $ ?• L'F S * + ? 

HD 16 J-t,N7T 
UP ( J ) ■ UFS*P» , F ( J ) 

WF < J ) •l'RS*ruF ( J ) 
pf T Al c j > -OWF I J 1 /nME < J ) 
pp ( j ) .npp ( j ) ♦ TP o F S 
IF IC^ACH.t O.O.O) OP TO 14 

TF-TTM 1,C-o.2*cm$o+( PUF (J)**2+nwF(J| **?-i #0)1 
S« ( -OWF ( J ) Mf'DV ( J )-OIJF (jn*(UFS?/<17l6.*Tm*C1.0*(19 
inoo.F + TFini 
PHOF ( J ) - P F I J ) /< 1716. *TF) 

OP TO 16 

TF-TT 

S-C.n 

PMHFtj ). rpps 

CYU c (JW.27£-0PMTF**1.5/(TE + 19e.6)) 

pi ( j) "Crv ( j ) /nu c ( j ) 

P4 ( J ) * P F T Al ( J ) * *2 

P3 C J ) -f • 5* <? v n*nov( J ) /DUE ( J) + P4 ( J ) + S*RETAl ( J ) ) 

«l P (J )«$C?T CUE ( J)«RhOF< J)*y /CMUF ( J )) + PLP ( J)*UF$*PnFS/' 
if (jao.n r,n in u 

R p TAlR«r.5*(RFTAl(J)*HFT4}(j-U) 

CFt ( J ) •RETAlp/ ( 71 J >-? I J-l n 

rrNTiMHf 

OFL U ) -0.0 

OEFINF Nlj r P F p PP POINTS AND GRID 

DFTM11-DETA1- 

FTA(1)«0.0 

IF ( (VOP-l.O) .1 F. 0.001) on TO 17 

NP«ALPG< (ETAF/DFIA (1 ))*(VGP-1 .01+1.0) /AL00(V0P)+1 .001 

on to ip 

NF-FT AF /OFTA ( 1 ) +1 .001 
I c fNP.LF.101 ) GO TO 19 

w&n* 

NP-101 

nr zo 

OFTA{J )*ntTA(J-l ) ♦ VGP 
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WING 
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WING 
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WING 
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WING 
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WING 
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c 

c 

c 
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22 

22 

24 

25 

26 
27 
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30 

31 


ETA (J)*6TM J-1)40ETA( j-i ) 
Af J)-0*5*0fTAt J-l) 

Lt -0 

CAU PPPFTL f t L > 
rfti»pk 


VINO 

WING 

WING 

WING 

WING 

WING 


WING 

WING 

WJNG 

FHP-AT (I k . 2E20.13) VTNr 

pnoMaT (4F20.13) WING 

Fpp f*A T ( 2 0 A 4 ) UIK}r 

FPCNAT (2I30F10.0) UINr , 

C P* M AT {«FK,CJ UING 

FTPNat (1H0,36MNP FXCFFPEO DIMENSIONS — SET TO 101) WING 

FCP^AT ( l l, P»?0A4) W7NR 

FTC^AT ( 1M0»7HN ACHN • #F1 4#6*3X »7HI*F$ *> FI 4*6f 3y » 7HPFS * t E 14 . 6 • W I K'G 

13>f7M T FS ■ * F 1 A . 6. 3X t 7HPP • * F 1 4 . 6 / 1 HC> 7HPPF 0 » * F 1 4 . 6 t 3 X . 7H M UP W I K*G 

?S •. F14.6, 3X# 7mpc G F 3 4 .6/1 N0» 7HCHDP0 • * Fl 4 . 6 t 3Y » 7MB AOTMS ■* F 1 4u I NG 

3.6f 3* »7HLFSW -.FI a.6,3x* 7HTESW -»F14.6/1H0»7MNI -» 1 3 * 1 4 x .7HN7UTNG 

4 ■ # J 3. 1 4X * 7h e T A c F14.6,3y.7H0FTAl » , E 1 4 . t, 3 X, 7H VGP «»F14.6W1NG 

S/ * WING 

FT P M A T ( //INf f 4 Xf 30HSTBF ANWIS P AIRFOIL C. POP D I N A T F S / ] HO * 3H NT • flX*3HV TNG 
lx2C»16» f 3M7/C/MM , n.3v,Fi4,6,sy.F14.6) ) WJNG 

Frey AT UNO* 5P* * 12HSTATI0K nATA/lMO*lX>2HN7,5X>3Hy/r#lOX.5HTHETA,lWTNG 

TiX ,* IMS* 1 3*» ?MCP # 11 X » 3 WC CL >10x> 5MUFPF $ , 9X • 5Mw FUF S > <?X > 6Mp WMrFS » *X » *HW I NG 
rofe'S/ilH tT3.OEl4.6M * WTKr , 

POP-AT (ID WING 

^ W T NG 

MfaCQHTlNP P PDF I L C t > WIMG 

C P * N V' / ° l C G / n7T»N7»)P^IT#X»RQFS#C m ACH»TTjpFTA<101 )#0FTAC103 M A (1 P U I N G 


11 )'» V(101 ) 


WING 


fPM^K / 0 L f 1 / HF,PP.C^l«FS f UFS,rrt(51),RFTAl(51),UF(5n,yr{51),7(5lWING 
1 ) fPF< 51 )# PHI < M),rhpe («1 ) ,xr (51 ) » C M UF (51 ) , P 1 ( 5 1 ) . P3 ( 5 1 ) , P4 ( 5 i ) , p e ( y tng 

?M )#3t P(53 ) y j fi Cj 

CPMv nN /PPPF / DELVf 101) tF <101 »?) iU( 1C1»?)»V(101#?)»G( 101*2) ttf <101. WING 
1l2>#Tncl.?)#‘U101>2>#C<101)*PG(ioi,2),F<ioi»2)»nFNPClClf?>*CAl(l01VTMG 

?f?)#CA2(101>2) WING 



wing 
W T NG 
WING 
W T N G 
WIMG 

wing 

WING 
WING 
WING 


IF M.EO.l) GO TO ? 

D F F I N F INITIAL PPOFILFS 
Ftl*?)»0.0 
BG(1.2)-1.C 
Bri«4.0*(BG(l,2)-1.0) 
RP2-4 .C* (1 .O-PG ( 1,2 ) ) 
on 1 J ■ 1 * N P 

FTAP- FTA ( J ) /PTA (NP ) 


?4J 
24 7 
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246 

247 
24fl 
240 
25C 
2*>1 
25? 
?53 
254 
2*5 
25* 
257 
2 5 F 
250 
260 
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26? 
?63 
264 
2 6 f 

?6F 

?67 

266 
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270 
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27 ? 

273 
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F ( J #2 )»0,5*FTAP*£TA(J) 

UC Jf ? >-f 

V( J#2)«1.0/FTA(NP) 

. G(J*?)-F< J,2> 

W( J.2 )«u( J, 2 ) 

T ( J . * > • V ( j , ? ) 

0 F N w ( J *21*1*0 
«l J * 2 ) ■ 1 • 0 
C f J ) - 1 * c 

1 rn^TiM f 
»F Uick 

C 

c pcnnifs fcp r t a 6 gpouth 

2 UP1«NP*] 

NP«^o+3 

IF (NP.CT.20U NP-101 

Kk •} 

IF (N7.FO. 1) K^-2 

OOAk.kk,? 

nn 3 j-KPi f Mp 

OFK? ( J#K ) «nFNP CNP1 1,K ) 

C( J )-l .0 

F( J ,K ) - F T A I J )4F (NP11»K)-FTA (NPH ) 
U(J*K)«l.C 

G(J>*<)«t-TMJ)4<WNPll,K>-FTAtMPll) 

V ( J * * ) • 1 . 0 
T ( J »« ) -T ( NPU t K ) 
fl(J#«)«P(KPll»Kt 
I c (C*ACd*FC.C.O) G o TO 3 

&gu,k)*i*o 

F ( J * * )*^(NP11»K ) 

C A 1 f J * K ) -r A1 (NP11, K ) 

CA?(J»*)-CA?rNPll>K) 

3 CTnTTM.f 

4 CrMTTM.tr 

PrTUCN 
6 MO 

Sliaeni.TlNF CUBIC ( 1L, XL • I N, FI , N9, PP ) 
OIMF^STHN vl (11, XLQ), Fid), PPOi 
OP P 

nn ? j*i,in 

IF (<FTM)-*UJ)>.IE.O.O) GO TO 1 

GO TP 2 
*?»J 
GO to 3 
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289 


WING 
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W TNG 
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WING 
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WING 
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WING 

204 


WING 
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WING 
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WING 
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WING 
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WING 
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WING 
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WING 
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WING 
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WING 
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WING 
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o 
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WING 
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WING 

31 5 

WING 

316 


WING 

33 7 


WING 
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WING 
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WING 
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WING 
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ZdZ 

ONlrt 

26£ 
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IdE 

ONlrt 

Odt 

ONlrt 
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dll 

ONlrt 

Hi 

9nI n 

dll 

9Ni rt 

HZ 

ONI n 

ylZ 

ONlrt 

Hi 

ONlrt 

Zli 

ONlrt 

Ut 

onIa 

(U£ 

ONlrt 

0 9 2 

9n in 

d 9 £ 

ONlrt 

LdZ 

9 .n I n 

991 

9run 

Svt 

ONlrt 

•>92 

ONlfl 

£ 9£ 

9«lrt 

2 92 

9*1 A 

1 9£ 

ONlrt 

0 9 £ 

ONI n 

6SE 

• 9 N I rt 

dSE 

ONlrt 

A9E 

ONlrt 

95£ 

ONlrt 

&'»£ 

ONlrt 

*SE 

ONlrt: 

£i£ 

ONlrt 

2 5 £ 

ONlrt 

U2 

o.Min 

05E 

ONlrt 

6*£ 

ONlrt 

b *2 

ONlrt 

A*E 

ONlrt 
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ONlrt 

**£ 

ONlrt 

♦>*>2 

ONlrt 

e*e 

ONlrt 

2?E 

ONlrt 

19E 

ONlrt 

G*£ 

ONlrt 

o£E 

ONlrt 

8 EE 
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IZZ 
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30NI1NJ9 t 
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o*i-rd*rd (Ni*od*n di 

0*Z*t l-I )T0*1 TJ-J* I) "fd 2 

o* )»ro 

rv/(cw>x-u>x)*j'2«ru t 

2 Ul u0 
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t r b ♦ rn / r v • r d 
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X di 1)9 (Ni’OJMJ dl 
( i-i ) u-i n H»rv 
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(dX*Nl 4 Id 4 XJ dNlldS jNlltlGddilS 
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2*» X* 

U/9Vf ( l + *l> lA*< ( 1Mx-( I ) Id)+J/( l)lA*9Vf( ( t + DU-l I) I l 
OnA*lV*< U-mx-(I)Id)+V/(2-X) U* U*( ( MI1H1 )Id>» (1 I ad 

Ml-inx-midltUZ-DIx-ilH J)»*v 

U l* 1) lx-l nid)*( (1) lX-< I) £ j» - tv 1 

Ml> 1A-C t + 1x-( !♦!» 1X)*CU-1!1X-C lOMXS-a 

( (D ix- ( iom)*(( i-Di x-i mx)*< u-i) ix-un* )-o 
( (T-inx-(x+i)ix)*iu-i)ix-n) ix >♦( (2-m x-a-i ) ix ) •« 

{ (2-X)XX-<X + X)Xx)*{ (2-X)XX-( lnjO^IHHu-d-D 1X»--V 9 

2X«1 £ 

9 ul 09 

t-om * 

9 (Ji U0 
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* 01 09 thl*0d*2>i) dl 
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«NlnOX>»Mt o nvi 3 UMl°t)Vl 3 .ll-HDV W D.SdDd«^lI<d N ‘ Z ,Vl 2 N / 0314 Y “JS '! " 

^Nlft Ijltlld dNii'lbaaHS 
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j WING 

wv.c.c WING 

IF ( T T * CT • 1 ) ffl TO 1 WING 

PF35-3. 5*PF (NZ> WING 

»JF?M.C. 5 *UF ( K 7 ) ♦*? WING 


WING 

on 2 J' 1 *np W j N r, 

IF CNZ.GT.l ) WW.tf < J,2 ) WING 

M«hE*»G( ?H*(U( J,2)**2*PA<NZ )*WW**2) WING 

TTT / A 006 • C WJNG 
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lu.vucn WING 
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251),nP<5]) y i k* g 
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12>»T(lCl»2)*n(101«2)»Cll0])»ftG(lCl*2)»F(101*2)#CEN6(101#?)#rAl(l0lWING 
?» 2 ) . 0*20 01 > 2 ) UTNG 
COUPON /Uf«/ RlOd >#ft?O01 >,83 001), p A 001). P'S 0 01 ),RA< 101) .R? OWING 
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eo+mis-cnf/ <zu*m tsi* c p>£s*xg-sg-idd 
( ( x-r)9rt* i n 2d+( t-n irt*( p> otb + « x-r ) c^* ( n 7d)-( r ) vo«vu 

UW)5ft*(P>«S*(WhA*lf)^t{ t-P)tftMPJ7b)-lM*;o-5U 

(l-Dv^iriVMDr^ou 
t l-P) Sft* 1 P ) £a*£0 
< w i7ft*< r>7*(pi*«-za 
( l-PJt.^lD Id- 10 

(nv/<(r>zz?*(r)z*i)+(r>2iv*<r)[*d+o*i-)-(n<:9v 

(P)227+(P)2£d-(P)2Cv*(P)Xtd-( P J V - - ( r ) 2 5 7 

(Dv/((r)zz^«(rjzzb4(nziv*(rixzd>«(nz>v 

(P)22V*(P)2£b-(P)2X7*(P)II b-- ( P ) 2 E V 
M:*0/«ZOJ*t JD-2D0*X?JJ)-{ P)2ZV 
dill/ (Z33* 10-20+ lD3)-<r)l IV 
|p)v/{ntd + if)»*iribti+tr)sb«2^ 
ipjos*(P)7*(rjis-iOD 

<nv / 1 cp) tzt+ir iz+g+c n uv*m t+u) - c r> 1*7 
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191 
994 
594 
79 L 
6 94 
294 
lit 
Oil 
654 
39L 
454 
954 
5 91 
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C$4 

254 
1 91 
054 
oil 
274 
lit 
lit 
571 
774 
t 74 
1*>L 

\il 

0 74 
6£4 
e € 4 
4€4 
9E4 
911 
7 1 4 
t£4 
2£4 

1 4 4 
0€4 
624 

2 24 
4 44 
9 44 
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ONln 




9Nlrt 
UNin 
ONI ft 
ONln 
ON I ft 
ON in 
ONlrt 
ONln 
ON I rt 

on in 
On in 
on in 
on in 
on in 


I Ul u9 (l*iO"ZK) dl 
C U-t-r)rt*<2T)rt)*5*u,«wrt 
l ( 2 - W ) 9 ♦< 2 • H 9 > ♦ S * 0 • 89 

dN*2«r 2 UQ 

0 * O- I v id 
0 * l * 0 7 i d b 
O'Q-OV** 79 
O' 1-lVdlV 
U *0*07 d TV 
0* t- (2 ‘ dN) jb 
SNU 1 1 1 0 JGJ Aotf ONlljd 


9Nir» (101)217 MI0DII7 * ( 01)216 MlUlMId MlODl 

0 Nin 2 A MIOUXa * ( 10 1 ) 2 d MIDDtd MIOUCS MIOUZS MIODU njUnJwIO 
9uA * (2‘laD27JM2*2 

ONiniOUl79M2«tOt)dNdO # (2nJl)aM2 < IOU9«MlOl)OM 2 ‘tut) aM 2 * t Jt)iM 2 l 

ONln* tot) n* u* t Jl )JM2* to I )AM2< tOl ) f) * l 2 * 10 t ) d M 10 t )A1 ju /dll fid/ N2w,.uO 
9nI * llS)d1bMlS2 

ONln) adM lS>7d*(ISKd M IS) IdM ISHflNDM IS) JX M IS) 30H»M ISi 1 h<jM 15) JdM l 

ONln IS) Z MIS) Bn M IS )BN* ( IS ) IVidbM l S )1 BO* SdO* S dfiw 9 * ad • dH /101b/ NUwwU‘9 
<JNl * (IOIJaMII 

9rUrtOD V* l 101) VidO-UOn VI d Ml -H3 VNO'S dUd «X * i I * dN MN Mi N /OJIu/ nUhnJO 

^ !4lrt 2A1QS JNI XUufidNi 

ONI n UN „ 

On in <9*7ld7'tl' HI) IVHdOj 

O.^ln (nndUhfi*Xo 4 117*185 M 6 MA13(JhS M6‘ VlVrtAHS ‘X*MIH2 «Xl ‘OHt ) iV.4dUd 
9Nin 
ON In 

on in 


ON in 
on i n 

ONin 

on in 
on in 
ONln 
On In 
Owln 
ONln 
on in 
ONln 
ONln 
ONlrt 
ONlrt 
ONln 
ONln 


N elVi d a 
3'lN I iNuO 

(nnju+<2*Di«C2*r )i 
(r)*ndo+(2*Di-(2‘r)n 
(r)9ido+<2*r >o-(2 < r>9 

(nAl3G+(2T)A-(2*DA 
minaoM^DiiM^no 
tr)dido+(2*r) :»-(2<r)d 

d N * t * f 2' ClU 

i mi30*(Z*t)lMl)AljaM2*l)A'lI CSM) diion 
17*9) dllan ll*0i*ll) dl 
o'OMtMldU 

U*0* ( I )*i 1 dQ 

o*o-< imdc 

0*0 •.( t)dldG 

( 2 ) n 13U* ( 2 )227-( 2)*11 3o+(2)T2v-(2)2n«< l ) HdU 


0 


9 

9 


& 


91 
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CFR«0,0 

CC«-0.0 

CWP-0.0 

CEP-0.0 

- A TT AC w MfN Y -l I NE PLOW 

SI IJ)*C*1(J.2 ) + AC J l*c-l* 5*FP + Pl(Nn*GR-RlP(Nn ) 

S?( J) — CA1< J-l» 2)-CAX(J,2)*SKJ) 

S 3 « JJ-C.O 

PI fJ>«CA2(J-l»?)-rA2(j f ?) 

P?C J>-0.0 
GO T" 2 

CP°-0.5*(F(J#1 l+PIJ-1,1 ) ) 

CGP-0.5M G< J*1 ) ♦G( J-l 9 \ ) ) 

cu'-o.'mvi j,n+uc j-i P i )) 
crR-o.;*(F(j»n«Fu-iti)) 

C«GP-P.5*(PG(J*1)4RG( J-l. 3 )) 

- r.f Ng P At FNF&GY F CH j A T J f] N 

S1(J)«CA1(J v ?)*A<J)+(- 1 • s ‘*PP^P^<N2)*GR4CEt CN7 )* (GB-CGfi)-RlP{NJ7) ) 
$?< J ) *-CAl( J-] • ?)-C41 ( J »2)+$l< J ) 

S3fJ)>-A(J)*CFL(N7)*(WR*CV*) 

PFPCA1»(CA1 ( J*1 ) *F ( J » l.)-f A] (J-1»1)+F(J-1»1) ) /D ETA (J-l ) 

DFPCA?.( (CA?U»7)-CA?( J-1 ,?)) /DETAC J-l) ) ♦ U C A2 C J ♦ 1 ) -C A? c J-l a >) /r 
1 T A ( J - 1 ) ) 

CIRF«PFPCA1-1,B+CFR*CFP4P3(M7-1) *CGR*C F R-Pl p (N 7-1 )+CEB 
PI ( J ) -PFTA ( J-l ) + (-CLBF+CFI ( N2 )* (-CBGR* ( WR+CVfi )-(GA-CG*) *CER)-DPPf 
I 2 > 

P 2 ( J ) » C . 0 
CONTI Nl.'P 
P2(MP). l.o 

0 l(l)«GAMMAO 

»2(1)«0.0 

AIKIWLFAO , 

B1 ? (1 ) * A L F A 1 

vim-pim 

v?n)-p?ti) 

00 3 J*?,NP 

C A l Gi»i a T I on OF GAMMA AMD W VECTOPS 

All ( J )»($2( J)-A ( J)*S3< J) ) / <P1?( J-l)-A(J)*f>ll( J-l)) 

A12<J )-Pllt J-1)+All( J1-S3IJ) 

C A l CUL A T I n N OF ALFA COEFFICIENTS 
1 1 ( J ) ■ S3 ( J )-Al ? ( J ) 

»1 2 ( J ) -?1 ( J ) ♦*] ?( J ) *A ( J ) 

Y1 ( J) •&] ( J)-A11 CJ)*Y1 C J-l )-*12( J )+Y?( J-l) 

Y? ( J ) • F 2 < J ) 

) 


WING 

7ftQ 

WING 

770 

WING 

771 

WTNG 

11? 

WING 

773 

WING 

77A 

WING 

775 

W I W G 

776 

WJNG 

111 

WING 

77 P 

WING 

770 

WING 

760 

WING 

761 

WING 

7 * ? 

WING 

783 

WING 

7F> A 

WING 

7P5 

WTNG 

7 P * 

WING 

767 

WING 

7P p 

WTNG 

7p9 

WING 

700 

WTNG 

703 

WING 

70? 

r W I NG 

703 

WING 

79 A 

WING 

706 

1WUG 

70ft 

WING 

707 

WING 

?cp 

WING 

700 

WTNG 

°C0 

WING 

PCI 

WING 

PC2 

WING 

P C 7 

WTNG 

PGA 

WING 

BC5 

WING 

F 0 ft 

WING 

807 

WING 

POP 

WTNG 

BCO 

WING 

P J A 

WING 

611 

WING 

61 2 

WTNG 

PI 3 

WTNG 

6 1 A 

WING 

P 1 5 

W I N G 

PIG 


o o 

81 
SJ p 

■O T3 

• a P 
S> Gi 
r; PI 

— *4 rninm 



moo 


IP 


CONTINUE 

WING 

*17 

CALCULATION OF Pf? R TUP 8 A T JON QUANTITIFS 

WING 

PI p 

W f ' N TMr OUTFP p.c. givfn 

WINf, 

«i 9 


WING 

s?o 

c (Mn >? ),CY3 (NP > *3 ET AO-p 1 1 <NP)+Y2(NP ) ) / ( 81 2< N P ) ♦«FTA0-»11 ( NP 1 ♦ PT AI ) V TNG 

9 ? 1 

J.MP 

WING 

9 2 2 

J-J-l 

WING 

823 

PAPl«Y?f J l-AG(J*lr?)4M J*1 >*F(Jflt2) 

WING 

P24 

F(Jf?)-(YiU)+911(J)*PAPl)M-A(j4l)*911(J)4812(J>) 

WING 

825 

PGIJ#?)- A< J + l 1 *E(Jt?)-PAPl 

WING 

*26 

TF (J.r-T # l) CO TO 4 

WING 

927 

OFT t'o N 

WING 

e?p 

FKrt 

WING 

9 2 9 

Sl'^FOl'TINF tutput 

WING 

P20 

cn^n* /nr 0 / n7t#n?,np, it. x*pof$,cmach#tt.fta hod .dftacioii .a homing 

9 3 I 

m»vnoi) 

WING 

932 

Cr*M>N / 9LC 3 / HE.PP.CNUFStUFSjCEl C 51 ) ,P F TAI C *1 ) ,UF ( J 1 ) , VF { 51 1 p l ( 51 U I NG 

P 3 3 

1 \, PF ( 53) , PHI (51) . PHHc (51 ) • XC<53 ),C*UF <51 )FPl<51)f 0 ?(51)#°4(51)tPP<WlNG 

834 

?51 ) # n l P ( 51 ) 

WING 

935 

Crf^ ON /POTF/ OFLVdOl ) tF<101 » 2 ) »U( 101 *2 > *V ( 1 01 » ? )» M 101 p 2 ) >U ( 1 G1 

# W I N G 

P?< s 

i2)#TUoi.?).Ruoi # 2)fC(ionfPr)(iox#?)»F(ioi#?)»nFNPnoi»2)#CAiuoiuiMG 

837 

a?<ioi.2i 

WING 

p 3 P 

DIMENSION TPANUdOlJf TPAKY(101)» OFPWPflOl), DF°tl2<101) 

WING 

830 

DIMENSION nFPHKlOl ) » OFPW] (101 )#0FPT1 (101 ) » 0FPT2U01 )#TPANW(10n 

UING 

840 

Cr* M ON /PAP/ Ivor . A1 , A2, A3* VGP 

UING 

841 


WINS 

84? 

*y .CMpf <N7 )*UE < Nn*X/C>MlF <N?) 

WING 

P43 

OF*^OPT (U c (N7)*+24WF (NZ)**?) 

WING 

P44 

SCP *• 5 CPT(0X ) 

WING 

945 

p a o ? • y / ^ o p y 

WJNG 

844 

sum.o.c 

W I N G 

847 

F1«0fnoci # 2) 

WING 

84* 

vm-c.n 

WING 

P4Q 

on i j- 2 »np 

WING 

85 C 

F2-DFNP(J,2) 

WING 

P 5 1 

SI- v «SU^4(Fl4F2)*A(J) 

WING 

et? 

F 1 * F 2 

WING 

p 5 3 

Y ( J ) «5l H4PA03 

w I Nr; 

854 

CPMPUF 

WING 

855 

J F l A G » 0 

WING 

65 5 

KFCAG-C 

WING 

*57 

no 3 J ■ 2 * N P 

WING 

856 

IF (W < J*2) .GT.l ..AND. JFLAG.F0.01 J F L A 0 * 1 

WING 

859 

IF (JFLAG.FO.il W( J» 2 ) ■! .0 

WING 

860 

IF (IM J.2) .GT.l . . ANO.KFl AC.FO.O) KFLAG-1 

WING 

Pf-1 

IF (KFIAG.F0.1) UU#2W.C 

WING 

962 

CONTI M.'F 

WING 

963 

Cin-si'N 

WING 

864 


) 


to 

to 

u> 
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5 

5 


7 

8 


Q 


WPITC (6,10) y IMr> 

w»ITF (6 ,20) CJ,PTA(J),P( J,2>,U(J,?),VU,?),G(J*?1#W( J,2).T{J,?),nWIN6 
1 F N p (J#?1pY(J)#J»X»NP#3) WTS r, 

WPITP < 6»?0> NP*FTA(NP)>F(NP»2)»U(NP>?);V(NPt2)»GfNP;Z)»V(NP»?);T(WTNG 

1NP,?| ,PEN»(NP,?),V(NP) yyNG 

nPLSTX-PA03*C-P (MP»2)*C!D) W ING 

• nFLST7.PAP?M-G(NP*?UCTDJ WING 

r)^T7XNf -OFl 5 T 7 WTM r, 

S'. ,M -0.C WING 

St' M? -C.O WING 

F 1 * U ( 1 WTNG 

pn-un, WINr , 

nr a j«?.np wing 

F?-M( J,?)*n< J,2) WING 


F?2-V(J»2)*W(J»?) 

M'r*Su»*<Fi«F?)*ACj) 

Sl’ M ?»St'N2 + tFll+ e 22)*A(J) 

F1«F? 

F11-P22 
CPNTI Kt-F 

T^fTAy.PAC3*(F(K'P,? | 

THC-TA7-PAC3# <G( «p,2 J-SUN2) 
t CFX-2.0*0 <H*V(1»2>/SCPX 
hv-pel stx/t^fta * 

H7-0PI 5T7/TWFTAZ 

IF (CPACH.r c.0.0) GO TO 5 

TE«pc(N7)/fhCF(N7)/1716.0 

TV-TF* Of NP u , ?) 

PHOW-PHne (nz > /CENP ( 1 p 2 ) 

GC TO 6 
TF .TT 
TWTT 

pWpw.ppfj 

vw« ft t P <N7 )*SOPT (UF tN7 )*CMME<N2)*PH0E (NZ )/X)/PHOW 

IP (N7.GT.1) GP TO 7 

CFZ-0.0 

Sn;iG.Pl_PU ) /5QPT ( PI ( 1 )) 

GP TO 8 

CF7«?.C*C(1 )*T( 1, 2)*1»E{N7 ) / UE < NZ ) /SOR X 

SOt'IG«ftlP(NZ)*SOPT(Pff (NZ)*UF(NZ)/vP(N7)/y) 

WPITF (6,21) rFl$Tv, D FLST7 > THFTAX,THETAZ,CFX»CF7#MV f H7 
Wf IT= (*,lft) UF ( N 7 ) » w E ( N 7 )»PF (NZ JfTE#PHPF (NZ ) # C HU F ( N Z )#Bl p (N7 ) f 
l ic# tw, t mow, vw»r ( i ) 

IF (N7.FQ.1) GP TP 12 
n p 5 j * l * n p 

TPAMK J )-U( J *t1F (NZ )/WE (NZ ) 

TPAKV ( J)-Y( J)/nST7lNC 
r p n T I M • F 


UTMG 
WING 
VU.G 
WING 
WING 
WING 
WING 
WING 
WING 
WING 
U T M G 
UTN9 
w T r G 
WING 
WING 
UJNG 
WING 
WING 
WING 
WING 
WING 
WING 
WING 
WING 
WING 
WING 
WING 
sot* W TNG 
WING 
WING 
WING 
WING 
WING 
WING 


665 
86 * 
867 
et* 

869 

870 

871 

872 
87* 
P74 

875 

876 

877 
8 7 8 
879 
860 
881 
88? 
8ft* 
8 8 A 

885 

886 
PP7 
ppfl 
P P Q 
890 
8 91 
69? 
893 

ft Q & 

895 

89 6 

897 

898 

poq 

ooo 

901 

on? 

903 

904 

905 

90 6 
QC7 
°0 p 
90 9 

910 

911 
Q 1 ? 


o o 

-n » 

-0 O 
0 2 
O > 
vo r 

«o -o 
a 

> o 
C rn 

*4 >rd 

2 a 
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?0 


NPH1.NP-1 WING 

DO 10 J-2#NPM1 WTNG 

0 Y1-TPANY( J)-TP AN Y ( J - 1 ) WlNG 

0Y2-TPANY< J + l )-TPANY{ J) WING 

PFOt'Pf J ).<rYl*TDANU( J + 1W0Y2 + TPANUI J-l >-TP ANU ( J )* (OYl 40 Y? ) ) / ( . 5*0 YW I NG 
• U*OY?* CPVl^OYP) ) uTNG 

OFPu?(j)./rYl *w( J*1,2)+PY?*V( J-1*2)-Vf J#2J*(nYl*D v ?n /(.5*0Y140Y2^WTNG 
1 ( 0 Y ] ♦ 0 Y ? ) ) KING 

"eoT? u >. (DY1*0FNP( J + l,?>+DY2*Pf>'P(J-l,2)-D£N*U,?)Mnvi*DV?) )/ VTNG 
1( .54PYJ A nY2*Crvi*rv2) ) viNG 

PE Pin (JWDY) **?*T»ANU( J + l) -inYl**2-PY2**2)*TPANU< J)-0Y?**?* WING 

1TPAMJ( J-n )/ (PYl + n v 2) /HYl/DYZ WING 

Of PH l J »• (PYl +*2*W< J+l. ?)-<0Yi**2-nY?**2) *W( J, 2)-pY2**2*V<J-l • ?)) VING 
1 /(PYl4nv2) /OYl/OY? y j ng 

n?PTUJ)«<rYl**2*pFNPtJ*1.2 ) - (PY144 2-0Y2 + 42 ) 40FNP(J,2)-pY2*42* w I t4G 
lo c NC(j-i.?n/(nYi+nY?)/nYi/nY2 wing 

10 C0N: T I Nl'P WING 

OFPtfP (KP) -(TP ANIMNO-l J-TPANli(KPn/0Y24^2 VING 

OFP W? < NP )■ (V (NP-1.2 )-W(Np,2 }) /OY?**? w I fj G 

nt C T* (MP ) - <Pf NP (NP~1 • 2)-DFNP(NP f ? ) ) /pY ?♦ + ? u T NG 

nr P01 CMP) -(TPANHINP )-TPANU(NP-l M/?./P v 2 u T NG 

DFPV1 INP) »(V(NP, 2 )-v(NP-l ,?)) /?. /0Y2 WING 

PFRT1 (►P).(r.FM>(Mp f ^)*oFMP(NP-l#?n/?./OY2 WING 

X1-T.J ANY( ?) g j Kj G 

Y 2 ■ T p A N v ( 3 ) W7N( , 

Y-3 ■ TPAK V(4J WTNG 

YA»T9ANY|5) WING 

OL 0 «Y 3 * > ?** 3 *X 4 W J NG 

AA2-Y14¥?4Xl*y3+*?*X3+Xl*y4+X2*y44X3*X4 WING 

f*;«*2*>3 + *?*XA+X3*XA W J K , G 

rti-*i*ixi-*2)* (xi-x3)4(xi-vA> wing 

C?-Yl#y?*M**A + X3*YA W T NG 

0L2**?*< X2-X1 )♦ ( X2-X3)* (X2-X4 ) viNG 

0?«M*X2*Y1*X44X?*Y4 VING 

OL3“X3*lx3-*l )*(Y?-X?)*(X?-X4) WING 

F?»Y1 4X?fXl*X3+X?*Y^ w I N G 

ni 4- *4* ( X4-X1 )* (X4-X2 )♦ (X4-X3 ) WING 

0 P p V 2 ( 1 W.*P?*w( 2 * 2 ) / PLl«?.*C2*un»2) /0L242 • +D2*W( 4 * 2 ) /TU3 42 .*F?*WING 
!U(9.?)/nL4 VTNG 

PFRI'2 UW.*P?*TPANU(?) /Dl l42.*C2*TPANU(3)/Dt? + 2.+D?*TOANU<4) /Dl 3+WTNG 
1?.*F2*TPANN15) /0L4 WING 

OEPT? (1 )«2.*P2*0FN» (2 »?)/DL 1 +2 . *C2*0FNR { 3> 2) /Ol *0?*DENR (A #2) / WING 
1 Ot 3 + 2 . *f 2 40 FNP ( c » 2 ) /TLA y j ng 

HE P T ? ( 1 > * 0 F P T 2 ( lM2*PAA?*DFNP(lt2)/DL0 WING 

DY1 -TPANYf? J-TPANYll) y J N G 

OYP.TP ANY{ 3 )-TP ANY( 2 ) WING 

OrpiM U)»(TPANU(?M(OYl+DY2>/OYl-TPANU<3)*DYl/<PYl + OY2n/OY2 WING 

DF^Wl (1 )■ (M2t 2 )* (0Y1+0Y.2) /0Y1-VC 3»?) ♦OYl /( DY1 -40Y2 ) ) /DY2 WING 

) 


013 

014 

015 
01 ft 
917 
Qi fl 
919 
O ?0 
9?1 
92? 
9?3 
924 
025 
92ft 
927 

92 * 
o ?9 

930 

931 

932 
03 1 

03 A 

035 

Q3ft 

937 

93 6 
039 

940 

941 

942 

943 
C 4 4 

94 5 
94ft 
P47 

04 4 
C 49 
950 

0 R] 

05? 

953 

054 

Q55 

956 

957 
95ft 

059 

960 
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63 


11 


12 

C 

C 


13 

C 


C 

c 


P0ST2.RHnP(Nn*WP(f'2)*nST?INC/CMUE<N2> 

TP (IVPT.E0.3) GO Tn 12 
IP (TV D T.NF.O.* NO, TWPT.NE.2) Gn TO 11 
WPTTF (7) h 7>NP,^ST7 INC »9nST2 

WPITF<7JOE>Pt(N7) , TF, PHPF (N7 ) , C HUE ( N 7 ) » T W . R HOW 
F P P M 4 T ( 7P16.9) 

Up T T 5= ( 7) (TO ANYf J) , J-l ,NP ) 

UP ITF m (WNt 2) , J«1 ,HP) 

WPITF (7H0FPUK J)»J«l,NP) 

WPITE/7)(0FPV?| J>,J»1.NP) 
w p r T F < 7 ) (TP ANIM J ) » J * 1 * N P ) 

WP!TF(7)frFPUl(J)»J*l.NO) 

WPIT P (7) ( rt Hi2(J)*J«l fNP) 

WRTTM7MCFCTK 

UOTTE (7MDP9T?( J) 9 J-l.KP) 

CONTINUE 

TF (Iwsr.fr.i . anh. iupt.NF. 2) 60 Tn 12 
WPITF (SIM NZtNP,nST7TNC>PDSTZ 
WPITF (6.17) 

I 5 T C P - 1 

UPITC W,16) (J.TRANY(J),V( J.2),pppwi(J),DPRW2(J),TPANU(J), 
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